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Introduction: 


Le GFA Basic est devenu actuellement le langage de programmation standard 
sur le monde de l’Atari ST. II permet a un utilisateur comme a un programmeur 
de tirer pleinement parti de P Atari ST. 

Ce Basic en est maintenant a sa troisieme version, encore plus confortable et 
plus puissante, pouvant servir aussi bien pour une simple initiation a la 
programmation que pour des projets plus elabores. 

Qu’allez-vous trouver dans ce livre ? Dans la premiere partie vous ferez vos 
premiers pas en programmation, vous apprendrez a manipuler Pediteur GFA 
et les commandes les plus importantes. 

Dans la deuxieme partie, nous traiterons des bases du GFA Basic: les boucles, 
la manipulation de donnees, les procedures et les fonctions ainsi que la creation 
graphique et sonore. 

Dans la iroisiemc partie vous n'etes plus un ddbulant, mais un ulilisaieur 
experiment 6, Vous fakes connaissancc avee de nouveiles commandes du riche 
voeabulaire GFA et apprenez & manipuler le clavier, Pecran, Pimprimante ct 
les unites de disquettes. Vous aurez6galenient un apergude la programmation 
GEM. 

La quatrieme partie est faite pour vous secourir lorsque vous aurez besom 
d’aide, ce qui nc manquera pas d’arriver ; elle contient tout d'abord une vue 
d’ensemble de toutes les commandes tirees du voeabulaire GFA Basic Lrait£cs 
dans ce livre ainsi que quclques remarques sur les versions 2.0 et 3.0. Viennent 
ensuite quelques conscils pour 6vitcr les fautes que vous pourriez commettre 
en tant que debutant ou utilisateur du GFA Basic. Un glossaire est prevu pour 
facil iter la rechcrdie dc certains mots-cl6s importants. 

En annexe se trouve Pessentiel sur ce qui concerne Pediteur du GFA Basic et 
ses menus. De plus, vous y trouvez un tableau des codes ASCII de PAtari. 
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Pour s’echauffer 


Chapitre 1 



D ans cette section, nous allons rester au niveau le plus simple de 
l’apprentissage. Nous n’allons pas faire connaissance du GFA Basic de 
fagon brutale. Apres avoir manipule un peu l’editeur GFA, vous ferez votre 
premier programme. Nous nous entretiendrons ensuite du Basic en g6n6ral et 
du GFA Basic en particular. 

On dit du langage Basic qu’il suffit de connaitre quelques commandes pour 
pouvoir deja se mettre directement a programmer. Sans avoir beaucoup a 
reflechir - selon le proverbe 'Texperience concrete passe avant l’etude 
abstraite" - on peut rapidement confectionner de petits programmes. C’est 
pourquoi le Basic (abreviation de "Beginners’ All purpose Symbolic Instruction 
Code") semble etre le langage ideal de programmation pour les debutants. 


1.1. Sauvegarde et mise en route 


Allons-y ! C’est certainement avec ces mots que vous vous etes assis devant 
votre ordinateur, avec ce livre ouvert a vos cotes. Mais sachez tout d’abord que 
dans ce domaine, on ne peut foncer tete baiss6e : vous devez apprendre a 
programmer de fa^on refl£chic. Vous m constaterez pas tout de suite qu’il est 
plus rentable ici de faire passer 7 ’elude abstraite avant Vexperience concrete En 
effet, une bonne analyse prCalable ne se rentabilisera que lors de la confection 
de programmes longs et complexes. Et c’est justement la que le GFA Basic 
vous fournira une aide precieuse ! 

Branchez maintenant votre ordinateur comme vous le faites habituellement. 
Mettez la disquette systeme dans le lecteur. Nous allons tout d’abord nous 
entendre sur quelques termes que j’utiliserai souvent dans cet ouvrage. En 
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premier lieu cc quc Ton appeile "cHqaer avec la souris*, qui sigmfie : appuyer 
sur la touche gauche de la souris. Essayez: amenez la flfeche avec la souris sur 
une icone ct cliquez une fois. line icone est la representation graphtquc de 
voire disquette sur Ficran. Nous verrons qu’il y a de la mcmc fa^on une icone 
pour les programmes, une icone pour les dossiers etc... 

Le symbole apparait en inversion video. C’est ce qu’on appeile le simple clic, 
permettant d’activer un symbole. II existe de plus le double-clic qui sert par 
exemple k lancer un programme ou a afficher le contenu d’un fichier. 

Cliquez deux fois rapidement sur Ficonc de Funitfi de disquettes : 1c contenu 
de la disquette sysleme doit s’affichcr sur F6cran. Si vous n’avez pas encore fait 
grand chose avec votre Atari, il peut arriver que le double clic ne fonctionnc 
pas imm6diatemenL Ceci vient du fait que vous n’avcz sans doute pas appuyd 
assez vile consficutivement, mais c’est en forgeant qu’on devient forgeron, 

Avant de commencer, nous allons confectionner une disquette de sauvegarde 
dela disquette originate du GFA Basic. Cda ndeessile une disquette vierge (si 
possible neuve), qu’il faut tout d’abord prdparer, e'est h dire formater. Four 
cela, placez la disquette dans Funit6 A, activez Ficonc par un simple clic (pas 
de double clic I) ct cliquez sur fomiatage.,, dans le menu fichier de la barre de 
menus. Dans le milieu de Fecran apparait alors un message d’alarme vous 
pr6venant que toutes les donnees de la disquette A vont etre effacees. 



Figure 1 : Message d'alarme 
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Pour s’echauffer 


Quand les boites d’alarmes apparaissent, un des boutons est entoure d’un cadre 
beaucoup plus noir. 

Cela signifie que Fappui sur la touche < Return > suffit pour le selectionner. 
Vous pouvez bien sur Tactiver en cliquant dessus avec la souris. 

Apres vous etre assur6 de nouveau qu’il y a vraiment une disquette vierge dans 
l’unitd A, vous cliquez sur Confirmer, ce qui fait apparaitre une fenetre de 
dialogue. 

Si la zone simple face apparait en inversion vid6o, vous cliquez tout simplement 
sur formater. 

Si c’est la zone double face qui apparait en inversion, cliquez d’abord sur simple 
face puis sur formater. 



FORMATAGE 


I S0RT1R | 


i intiniim 


Non de l'ynite; At j FQRHflTEft 

Hon du disque! ]-*— 

FORMAT I 


! Double f ace 


Sinple face 


Figure 2: Fendtre de dialogue formatage 

La disquette est en cours de formatage, 1’dtat d’avancement du processus est 
figurd par un rectangle qui se remplit de noir. Apres un certain temps, vous 
recevez le message vous annon^ant lc nombre d’octets disponibles. Si celui-ci 
n’est pas 6gal a 357376, rcpclcz i’ope ration de formatage avec une autre 
disquette vierge. 
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Quittez la fenetre de formatage en cliquant sur Sortir . 

Nous allons maintenant proceder a la copie de la disquette originale de GFA 

Basic. 

1. Pour ne pas effacer la disquette originale par erreur, il faut la proteger 
contre Pecriture. Pour cela, posez-la sur le dos, vous apercevez en haut a 
gauche un loquet coulissant que vous placez de telle sorte qu’on puisse 
voir une petite fenetre. La disquette est alors protegee contre toute 
ecriture. Sur la disquette vierge formatee, cette fenetre doit etre fermee. 
La figure suivante vous montre la position du loquet: 



2. Inserez maintenant la disquette originale de GFA Basic dans Punite A. Si 
vous avez deux unites de disquette, introduisez de plus la disquette que 
vous venez de formater dans Punite B. 

3. A Paide de la souris, amenez la fleche sur Picone de Punite A et cliquez: 
Picone apparait en inversion video. Maintenez la touche gauche de la 
souris appuyee et faites glisser Picone A sur Picone B. 

4. Un message d’alarme vous avertit alors que le processus de copie efface 
toutes les donnees contenues sur la disquette B : cliquez sur Confirmer 
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Pour s’echauffer 


5. Dans la fenetre suivante cliquez sur Copier 



Figure 3: Copie 

6. Si vous ne disposez que d’un lecteur de disquette, une fenetre vous 
demande d’insercr la disquette sur laquelle vous voulez copier, done celle 
que vous venez de formater. Durant le processus de copie, vous voyez un 
dessin qui vous montre Petat d’avancement du processus de copie. 
Lorsque vous ne disposez que d’un lecteur, vous devez intervertir plusieurs 
fois la disquette source et la disquette cible : suivez les instructions 
donn6es par les diverses fenetres qui s’affichent. 

7. Lorsque le traitement est termine, vous voyez reapparaitre la premiere 
fenetre de dialogue portant Pindication: Copie de disquette . Vous cliquez 
cette fois sur Sortir ce qui met fin au processus de copie. 

Apres avoir ainsi confectionne une copie de travail, rangez soigneusement la 
disquette originale, dont vous ne vous servirez plus que dans le cas oil vous 
auriez d6truit toutes vos copies de travail! 

La disquette de travail devrait maintenant se trouver dans Punite A. 

Si vous n’avez pas encore ouvert la fenetre permettant d’afficher le contenu de 
la disquette, rattrapez-vous en double-cliquant sur Picone de Punite A. 
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Parmi toutes les icones qui s’affichent, vous devez alors pointer avec la fleche 
sur l’icone intitul6e: 


GFflBflSICiFRQ 


Un double-clic permet alors de charger le GFA Basic, et vous vous retrouvez 
dans P6diteur GFA: 


A! Save ISavejfil Quit I New IBIhSta[Replac 





Barre de menus dans la version 3.0 


[1 Save 

Il Load 

ISavGjfl 
t Herge 

1 Quit 
[ Lllst 

1 New IBlk StalReplacel Pg up 1 Tex t 161 Direct 1 
f Block IBlk End! Find IPg down 1Insert | Flip 

1 Run f 

1 Test |1 


Barre de menus dans la version 2.0. 


Tout en haut s’affiche une barre des menus, encadree dans la version 3.0 a 
gauche par le symbole-Atari et k droite par l’horloge en dessous de laquelle 
s’affiche le numero de la ligne. Chacun de ces menus peut etre ouvert en 
cliquant dessus avec la souris ou en appuyant sur les touches de fonction: les 
menus situes sur la ligne inferieure sont accessibles par les touches < FI > a 
< F10 >, ceux de la ligne sup6rieure par < Shift > < FI > a < Shift > < F10 >. 
II en va de meme pour la version 2.0. 


1.2 Editeur et menus 


L’editeur GFA n’est pas vraiment un traitement de texte, il n’est pas congu pour 
6crire vos lettres. L’dditeur teste chaque ligne d’6criture pour constater s’il 
s'agit bien d’un texte ecrit en BASIC et sans erreur de syntaxe. Vous pouvez 
vous en convaincre vous-meme en 6crivant par exemple: 


L'6diteur GFA Basic tient-il ce qu’il promet ? 
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Apres quoi vous terminez en appuyani sur la touche < Return >. Vindication 
faute de syntaxe vous montre que voire phrase ne correspond pas aux regies du 
GFA Basic. Ce n’est done pas la bonne fa^on de proedder avec l’editeur GFA! 

A Paidc de la touche curscur (fldche k gauche) positionnez-vous an ddbut de 
la ligne, inscrivez une aposlrophe (*) et appuyez sur <Return>. Cette fois 
Pfidileur ne rechigne plus. Car ce petit signe lui indique que ce qui suit ne le 
concerne plus ! En faisant commenccr toutes les lignes par cettc apostrophe, 
vous pourricz saisir n’importcqucl texte. Vousparvicndriezdonca dcrirc votre 
lettre par ce moyen ! 

Essayez maintenant d'dcrire quelques lignes afin de vous familiariser avec 
Pediteur. Remarquez par la in cine occasion que le petit compteur de ligne en 
haul a droite (dans la version 3.0) compte les lignes que vous saisissez depuis 
le chiffre 0. Introduisez sans scrupulc quelques fautes d’orthographe: Pediteur 
ne remar que rien ! Avant de les corriger, jouez un peu avec le curseur. 

Vous pouvezle deplacer k Paidc des touches fiSehees a Pirit6ricur du texte, de 
haut en bas et de droite a gauche ; vous nc pourrez le deplaccr sur toute la 
surface de Pecran qu’aprds Pavoir remplie dc iexte. La souris vous permet 
naturellement de placer le curseur n’importe oil dans le texte, il vous suffU 
d’amener la fleche a Pendroit voulu et de cliquer. 

Vous pouvez corriger les fautes de frappe a Paide de la touche < Delete > ou 
< Backspace > : conslatez-vous la difference de l’effet engendre ? Vous 
pouvez insercr directement ce que vous avez oublie ou ce que vous voulez 
rajouter car vous vous trouvez en mode ecriture (Insert). 

Voyons un peu ce qui arrive si vous cliquez dans la barre de menu sur Insert 
ou si vous actionnez la touche < F8 > : le mot Insert est remplace par Overwr. 
Vous ne vous trouvez plus en mode "ecriture" mais en mode "remplacement". 

Comme vous voyez, vous ne pouvez plus inserer de texte, mais les lettres 
existantes sont remplacees directement par les nouvelles. 

Ces instructions-editeur pourraient a vrai dire vous suffire ; mais il serait 
dommage de ne pas faire appel aux autres possibilites de Pediteur GFA : 

& Vous pouvez par exemple atteindre directement le debut ou la fin d’une 
ligne en combinant les touches < Control >< <-> ou 
< Control > < > 
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& La touche < Insert > vous permet d’inserer une nouvelle ligne. En 
actionnant < Control > < Delete > vous pouvez effacer une ligne et 
(dans la version 3.0) la rappeler par < Control > - < U > si vous venez 
de gommer sans avoir rien fait d’autre ! 

$ < Control >< Clr/Home > ou < Control >-Z vous permettent de 

placer directement le curseur en debut ou fin de texte. 

Ce ne sont la que quelques possibilites, et vous en apprendrez d’autres au cours 
de vos exercices de programmation. Vous trouverez d’ailleurs une liste 
complete des fonctions-editeur dans Pannexe A. 

Avant de vous lancer dans votre premier programme, vous devriez encore 
prendre connaissance des quelques informations suivantes concernant les 
possibilites offertes par la barre de menus pour la sauvegarde ou le chargement 
sur/depuis un fichier ou un disque dur d’un programme ecrit en GFA Basic en 
utilisant: 


Save 

ou 

< Shift > <F1> 

Save, A 

ou 

<Shift> <F2> 

Load 

ou 

<F1> 

Merge 

ou 

<F2>. 


Vous verrez apparaitre a chaque fois une fenetre de dialogue vous demandant 
de preciser le nom du fichier que vous appelez ou dans lequel vous voulez 
ecrire. 

Save>A vous permet de sauvegarder le texte de votre programme tel que vous 
Pavez saisi dans Pediteur au signe pres : LST est Pabreviation de Listing. Le 
listing du programme peut alors etre relu par un logiciel de traitement de texte 
comme par exemple Textomat ST par exemple. 

Save permet de sauvegarder votre programme ecrit en GFA Basic de fagon 
codee, c’est pourquoi dans la version 3.0 vous voyez apparaitre Pextension 
GFA . La version 2.0 fait appel h un autre encodage : les programmes sont 
enregistres comme des fichiers BAS. L’encodage permet de raccourcir le 
temps de chargement et la taille des programmes longs, mais le listing n’est plus 
lisible que par Pediteur GFA. 

Load a Peffet inverse: il vous permet de charger dans Pediteur les fichiers GFA 
(ou BAS pour la version 2.0). Merge s’utilise pour les fichiers LST. Cette option 
vous permet d’ajouter des programmes dans Pediteur sans ecraser celui qui s’y 
trouve : mais ceci ne fonctionne qu’avec des fichiers LST ! 
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Pour s’echauffer 


Si vous chargcz des programmes dont vous n’etes pas I’autcur ou qui out etc 
fiiaborfis avee im autre £diteur, il peut arriver qu’une ligne commence par une 
double-flfeche allongee ; le GFA Basic ne comprend pas ccltc ligne crrondc. 

Run ou < Shift > < F10 > permettent dc lancer le programme. Test ou < F10 > 
servent h tester la bonne structure du programme. Lorsqu’un programme s’cst 
enticrcment ddroute et que vous revoyez son listing dans ltediteur, Flip ou 
< F9 > vous permettent dc visualiser la situation laissde par le programme sur 
i’dcran. 

Direct ou < Shift > < F9 > ou plus simplcment < Esc> vous rcplacent dans le 
mode denture directc : les lignes dc menu disparaissenl ainsi qu’un texte de 
programme dvenlucl et vous voycz apparailrc la suite dc signes 


OK > 


Tapez alors: 


P1 + 1 


et terminez en actionnant la touche < Return > ou < Enter >. Vous pouvez 
naturellement demander quelque chose de plus complique ! La lettre "p" est 
l’abreviation de PRINT et signale en GFA Basic a votre Atari ST qu il doit 
afficher quelque chose sur l’ecran. 

Si par hasard vous devez effectuer une petite addition et que vous n’avez pas 
sous la main votre calculatrice de poche, vous pouvez vous en sortir en vous 
plagant sous Direct. Dans la version 3.0, pour revenir a l’editeur GFA, pressez 
simultanement les touches : < Control >< Shift gauche >< Alternate > et 
Hans certains cas (par exemple lorsque l’on utilise des menus deroulants (on 
menus), il faudrait appuyer en plus sur < Return >. Vous pouvez aussi taper 
END ou EDIT pour revenir aux menus GFA. 

Llist ou < F3 > vous permet de sortir sur papier le texte de votre programme 
par le biais d’une imprimante. New ou < F4 > vous permet d’entrer un nouveau 
programme en effagant l’ancien. Enfin vous pouvez quitter le GFA Basic par 
Quit ou < Shift > < F3 >. 

Dans la version 3.0 vous pouvez cliquer sur le symbole Atari en haut a gauche, 
ce qui fait apparaitre un nouveau menu, vous donnant acces a des accessoires 
eventuels comme par exemple le reglage du panneau de controle ou de 
l’imprimante. En pointant sur GFA Basic vous ouvrez un menu: 
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Save 

Load 

Deflist 
Houveaux nans 


Editor 


Figure 4: le menu figurant sous "GFA Basic" 

Save et Load correspondent aux options du menu principal. Nous ne nous 
intdresserons plus maintenant qu’a Deflist qui vous permet de fixer le mode 
d’dcriture de vos programmes. Vous avez deux possibility : 

0 L’editeur ecrit en lettres majuscules tous les mots du vocabulaire du GFA 
Basic et en minuscules les mots que vous definissez vous-meme quel que 
soit votre mode d’dcriture ; ce code est presdlectionne par defaut lors du 
lancement du GFA Basic version 3.0 

1 L’dditeur fait commencer tous les mots par une majuscule suivie de 
minuscules, qu’ils soient tires du vocabulaire GFA Basic ou de votre 
creation ; ce mode est prdselectionne lors du lancement du GFA Basic 
version 2.0. 

Notez que lorsque la valeur 0 est proposee, le choix en cours est 1 et 
inversement. Cliquez sur Pune des deux valeurs indiquees (0 ou 1). Vous 
retournez directement a Pediteur. 

En plus de ce formatage du texte, ajoutons que les mots saisis entre guillemets 
(") sont du texte et ceux entre apostrophes (’) des commentates. Les deux 
possibility restantes (options 2 et 3 du menu) ne vous servent pas pour Pinstant 
et vous n’avez done pas encore a en prendre connaissance. 

En cliquant sur Editor vous retournez dans Pediteur, si vous n’y etes pas deja. 
Je crois que cela suffira pour un premier contact. Nous ferons appel aux autres 
options lorsque nous en aurons besoin ; vous trouverez de plus amples 
explications sur les menus dans Pannexe B. 
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Votre premier programme 


Chapitre 2 



Bonjour, comment vas-tu ? 

Bien ? - je m’en r6jouis ! 

Mai ? -j’en suis bien pein6 ! 


V otre Atari ST cst-il aussi prdvenant avec vous ? Non ? Alors apprenez lui 
les bonnes manicres, et sans larder! Un ordinateur ne dialogucra avee vous 
que si vous lui faites comprcndre dairement ou vous voulcz en venir ! Sans !cs 
instructions adSquates il ne fera ricn, ou en tout cas pas ce que vous attendez 
de lui. 


2.1. Question et reponse 


C’est a vous maintenant ! Donnez vos instructions ! Que doit faire votre 
ordinateur ? II doit vous saluer par un bonjour, comment vas-tu ?. Vous voulez 
d’abord essayer par la maniere douce ? le saluer de preference par un gentil 


bonjour 


dans Tcspoir qu T il va vous r6pondre sur Ic memo ton ? Mais lors dc vos essais 
avec I’dditeur GFA vous avez deja constate qu’il n’acceptc pas n’importe quel 
texte. Votre bonjour ne vous menerait qu’a la reponse que vous connaisscz deja 
erreurde syntaxe, et meinc une apostrophe ne vous avancc pas plus ici. 

Vous devez user d’un autre ton. Votre ST attend visiblement de vous, une 
indication claire de ce qu’il doit faire. Concretement cela veut dire que votre 
ordinateur doit ecrire sur son ecran. 
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Vous devez done lui dire: 


ECRIS "Bonjour, comment vas-tu ?" 


surtout pas dans votre langue de tous les jours, mais dans celle qu’il comprend, 
le GFA Basic pour ce qui nous concerne. Effacez done votre gentil bonjour 
grace a < Control > < Delete > et ordonnez: 


PRINT "Bonjour, comment vas-tu ?" 


Enfin votre ordinateur peut vous dire : 


"Bonjour, comment vas-tu ?" 


Vous avez deja fait la connaissance de PRINT dans le chapitre prdeedent. II 
signifie imprime mais aussi dis ou ecris : e’est ce qui incite votre ordinateur a 
afficher quelque chose sur son ecran qui est en quelque sorte sa fagon de vous 
parler. Et ce quelque chose est precisement le texte place entre les guillemets: 


"Bonjour, comment vas-tu ?" 


Lors de la saisie n’oubliez pas que vous pouvez corriger vos fautes de frappe 
en les effagant avec < Delete > ou < Backspace > et que vous avez la 
possibilitd d’insdrer des caract£res. Et pour que votre ordinateur fasse 
reellement ce que vous lui ordonnez, cliquez maintenant sur "Run" dans la barre 
de menu ou appuyez sur < Shift > < F10 > : la barre de menu disparait car vous 
vous trouvez dans la fenetre d’affichage. Qa marche ? Apres avoir execute 
Pordre PRINT, vous voyez apparaitre au milieu de votre ecran la fenetre 
suivante: 



Fin du progranne 


I Return I 


Rgure 6 : Fen§tre GFA signalant: fin de programme - RETURN 
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Votre premier programme 


En cliquant sur < RETURN > avec la souris ou en actionnant la touche du 
meme nom vous retouraez a la fenetre de Pediteur. 

Vous tenez certainement a rdpondre lorsqu’on s’enquiert si gentiment de votre 
6tat de santd. 

L 5 Atari doit done recevoir de votre part un ordre l’incitant a vous ecouter , ce 
qui signifie concretement que votre ordinateur doit se tourner vers le clavier 
pour percevoir votre reponse: il doit lire quelque chose sur le clavier. Dites le 
lui done, mais naturellement en GFA Basic. 

L’ordre adequat est ici INPUT, ce qui signifie approximativement ecoute ou 
lis, et incite l’ordinateur k ecouter ce qui provient de son oreille : le clavier. Et 
comme vous etes interesse a ce que votre ordinateur n’oublie pas votre reponse, 
il faut bien qu’il Pengrange quelque part dans sa mdmoire, et il faut meme qu’il 
prenne bonne note de Pendroit ou il va engranger dans sa mdmoire de travail 
la reponse que vous venez de lui envoyer. C’est pourquoi il a besoin d’un nom 
ajoute derriere la commande INPUT: 


INPUT REPONSE 


REPONSE dtant ici le nom d’une variable. Si vous vous souvenez plus ou moins 
confusdment de vos cours de mathdmatiques vous pensez k une autre 
appellation possible : une inconnue . Cela convient tout k fait puisque 
Pordinateur ne connait pas encore votre rdponse ! 

La denomination d’une variable peut presque prendre n’importe quelle 
longueur puisque le GFA Basic tolere jusque 255 caractdres, acceptant le point 
(.) ainsi que le tiret de soulignement (_) en plus des lettres et chiffres. Le 
premier caractere doit etre une lettre. Le GFA Basic distingue tous les 
caractdres d’un nom! 

Attention: Les caracteres accentues (e, e...) ne sont pas autoris6s pour les noms 
de variables. 

Vous avez sans doute remarque que l’editeur GFA autorise Pecriture en 
majuscules ou minuscules mais qu’ensuite (dans la version 3.0) il transcrit les 
commandes Basic en majuscules et que votre mot REPONSE est devenu 
Reponse se composant exclusivement de minuscules. Vous pouvez ecrire print 
ou input, Pediteur GFA Basic transcrira cela par PRINT ou INPUT. Si cela ne 
vous convient pas et que vous disposez de la version 3.0, vous retouraez au menu 
GFA-BASIC qui se trouve sous le symbole Atari et vous optez pour un mode 
d’ecriture different par le biais de Deflist (voir annexe B). 
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Si, par conlre, vous disposes de la version 2.0, vous bdnSficiez d ! une autre 
protection ,DeflUt i 5 qui fait commencer chaque mot par une majuscule, Vous 
pouvez ici aussi modifier cetlc prdsdlcction : il vous sutfit de vous placer dans 
ie mode Direct (en appuyant tout simplement sur la touche <Esc>) puis 
d’dcrire Defiist suivi tPun nombre et enfin de revenir dans Pdditeur par 
< control > < Shift (gauche) > < Alternate >. Dans le prdsent ouvrage je m’en 
tiens pour tous les programmes au mode d’dcriture engendrd par DEFLIST 0 . 

Lancez maintenant votre petit programme a l’aide de Run. Tout semble aller 
pour le mieux, car aprds un court laps de temps vous voyez s’afficher une 
gentille phrase sur Pecran de sortie : 


Bonjour, comment vas-tu ? 
? 


Apres cette phrase, vous voyez le point d’interrogation INPUT signifiant que 
la machine attend votre rdponse. Ou’allez-vous repondre ? Admettez que pour 
Pinstant vous allez (encore) plutot bien. Entrez bien et terminez votre reponse 
en appuyant sur la touche < Return >. 

Que se passe t-il ? 

Le point d’interrogation rdapparait! Cela veut dire que le programme attend 
toujours de votre part une reponse. votre reponse bien a ete refusde ! 

Essayez alors d’entrer le nombre 200. Cette valeur est acceptee. Appuyez sur 
Return pour revenir a Pediteur. 

REPONSE contient maintenant la valeur 200. Pour vous en assurer, modifions 
le programme de fagon & afficher le contenu de REPONSE: 


PRINT "Comment vas-tu ? 
INPUT Reponse 
PRINT Reponse 


Lancez a nouveau ce petit programme en cliquant sur RUN. 

Entrez la valeur 1000 en rdponse au point d’interrogation. 

Le rdsultat suivant apparait: 

Comment vas-tu ? 

? 1000 
1000 
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Votre premier programme 


La troisieme ligne indique bien que la variable Reponse contient la valeur 1000 . 
Appuyez sur < Return > pour revenir a Pediteur. 

Mais alors, pourquoi Pordinateur nous a refuse le texte bien en reponse au point 
d’interrogation ? Pourquoi a-t-il accepte qu’on lui rdponde 1000 et non bien. 

Je vous dois bien une explication: tous les noms de variables que vous utilisez 
en Basic deviennent tout d’abord, comme il est d’usage en mathematiques, des 
variables numeriques. Ceci signifie par exemple qu’elles ne peuvent contenir 
que des nombres. C’est pourquoi 1000 a ete accepte, bien a ete refuse. 

De votre cote cependant, vous ne voulez pas ecrire des chiffres mais du texte, 
c’est-a-dire des caracteres, des chaines de caracteres. Cest pourquoi il faut 
faire figurer dans le programme un signal disant a Pordinateur que reponse 
contiendra du texte et non un nombre. On ajoute tout simplement ce signal ($) 
a chaque variable. Voyez par vous meme : 


PRINT "Bonjour, comment vas-tu ?" 
INPUT reponse$ 

PRINT reponse$ 


Et voici enfin votre tout premier programme ecrit en GFA Basic : faites le 
tourner plusieurs fois et entrez des reponses differentes. Cette fois-ci, le texte 
sera accepte ! 


2.2. Ca va bien, Qa va mal... 


Ce programme ne reflete cependant pas encore une veritable conversation; en 
effet, votre ST ne tient pas vraiment compte de votre rdponse et se borne a une 
repetition, comme un 6cho. Vous vous attendez au moins a quelque 
compr6hension de la part de quelqu’un qui s'enquiert de voire £tat de sante ! 
Naturellement, vous n’attendez pas de sentimentality de la part d’un 
ordinateur, il vous suffit en tant qu’utilisateur d'avoir Pimpression que votre 
ordinateur vous comprend. L’ordinateur peut en effet exploiter les chaines de 
caracteres de votre rdponse et comparer la variable reponse$ avec un mot 
quelconque comme bien ou alors mal et executer ensuite un ordre selon la 
nature de la reponse regue : 


IF reponse$ = "bien" 
PRINT "je m'en r6jouis" 
ENDIF 
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IF reponse$ = M mal" 

PRINT "j’en suis bien pein6 !" 
ENDIF 


La veritable signification des mots bien ou mat 6chappe k vatre ordinateur qui 
sc borne a comparer la rdponse que vous tapez sur le clavier avee unc ehaine 
de earactfcres bien ou mal . Et si ( = IF) votre r£ponse correspond signe pour 
signe tr&s exactcment h la chainc de caracteres, il vous fournit la rdponse 
m6morisde. Dans les chaines de caracl6res, fordinateur distingue les 
majuscules des minuscules et tient compte des espaces vides ! 

Apres avoir amene le curseur a la fin du texte de votre programme par 
< Control >-Z, vous pouvez le completer. Si vous tentez d’intercaler des 
espaces vides entre 


reponse$ = "bien" 

Ou ( __ 

reponse$ = "mal" 


INSdileur les gommera car if Lravaillc dans un mode comprime ct n’acccpte pas 
d’espace vide dans le texte des programmes, sauf si vous les faites prdc£der 
d’une apostrophe qui degage la responsabilitc de Teditcur pour lc rcstant de 
la ligne, II reorganise alors les lignes entre IF ct ENDIF auLomatiqucment. 

Et maintenant faites done un essai: il vous plait, votre programme ? 


PRINT "Bonjour, comment vas-tu ?" 
INPUT reponse$ 

IF reponse$ = M bien" 

PRINT "je m'en fSjouis" 

ENDIF 

IF reponse$ = , 'mal M 
PRINT "j'en suis bien pein6 !" 
ENDIF 


La procedure de controle que vous venez d’utiliser a la forme suivante en GFA 
Basic: 


IF <condition > 
< instruction > 
ENDIF 


et vous vous doutez bien que plusieurs instructions peuvent figurer entre IF et 
ENDIF, mais attention le GFA Basic n’admet qu’une instruction par ligne. 
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Votre premier programme 


Essayez d’ecrire sur une seule ligne tout le bloc compris entre IF et ENDIF : 
que vous repond l’editeur GFA ? 

II est grand temps de sauver sur une disquette votre premier chef d’oeuvre. 
Vous avez deux possibility : 

Save ou < Shift > < FI > 

Save,A ou < Shift > < F2 > 

dans les deux cas vous voyez apparaitre une fenetre de dialogue vous 
demandant de donner vous-meme le nom du fichier sous lequel vous voulez 
archiver votre oeuvre. Les extensions sont par contre preetablies: GFA ou BAS 
pour les textes de programmation encodes, LST pour listing qui designe des 
fichiers memorisant tous les mots, y compris ceux du GFA, caractere par 
caractere. 

Quel que soit votre choix, nommez done votre premiere tentative BONJOUR 
et terminez en appuyant sur < Return >. Les extensions LST ou GFA (version 
3.0) ou BAS (version 2.0) s’inscrivent automatiquement. 


2.3. Une note plus personnels ? 


Notre petit bonjour n’est pas mal pour un ddbut, non ? mais si vous vouliez lui 
donner une note plus personnelle, vous devriez indiquer votre nom a votre 
Atari ST, et vous devriez done l’inserer dans votre programme: e’est d’ailleurs 
bien mieux lorsque chaque utilisateur se sent apostrophe personnellement. 
Pour cela, il faut apprendre k Pordinateur les noms de la ou des personne(s) 
concern6e(s) : vous allez le faire de la meme fagon qu’avec votre reponse . A 
Paide de < Control > < ClrHome >, placez-vous dans la fenetre editeur en 
debut de programme, ou vous allez vous creer une ligne vide par < Ins > sur 
laquelle vous ecrivez: 


PRINT "Bonjour, comment t’appelles-tu ?" 
INPUT nom$ 


L’editeur GFA a lui-meme libere une deuxieme ligne. Vous devez maintenant 
modifier les lignes de votre programme en y apportant les corrections 
necessaires. Recopiez s’il vous plait tres exactement la ligne en faisant bien 
attention au point-virgule apres nom$. Je vous expliquerai juste apres le role 
de ce point-virgule. Descendez tout simplement le curseur d’une ligne, et voila 
que Pediteur a relie les nouvelles lignes avec les anciennes. Puisque vous en 
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etes aux modifications, ne serait-il pas plus esthctique et plus simple de donner 
un vrai nom a votre programme ainsi qu’une terminaison convenable: 


REM une petite conversation (1) 

PRINT "Bonjour, comment t’appelles-tu ?" 
INPUT nom$ 

PRINT nom$; M ,comment vas-tu ?" 

INPUT reponse$ 

IF reponse$ = "bien" 

PRINT "je m'en r6jouis" 

ENDIF 

IF reponse$ = ,l mal M 
PRINT "j’en suis bien pein6 !" 

ENDIF 

END 


Lcs caraci&res REM donnent a Tordinatcur Tordre dc ne plus tenir compte de 
la ligne, REM est Tabulation de REMark et signifie: je vais maintenant dcrirc 
une remar que, une explication, des mots qui ne concernent que le 
programmeur et pas Tordinatcur* A la place de REM vous pouvez utifiser une 
apostrophe C). 

Cette ligne n'a aucunc importance lorsque le programme tourne, mais pour 
vous en taut que programmeur, quelqucs remarques diss£min6cs de-ci de-l& 
peuvent etre uue aide predeuse pour vous rappeler par la suite cc que vous 
aviez intention de fairc avec telle ou telle panic do programme. 

END vous per met de mettre un point final a un programme: toutes les variables 
disparaissent, tous les fichiers ouverts par votre programme sont refermes. 
Vous pouvez bien sur n^gligcr cctte instruction, car lorsque Tordinatcur ne 
recoil plus aucune instruction, il consid&re de toute fagon le programme 
terming. Mais il n’est jamais inutile dc terminer proprement un travail. Dans 
not re programme, 


REM serait done la marque du d6but 

END celle de la conclusion. 


Com me nous cn sommes aux travaux d’embellissement, je vous propose encore 
le programme suivanl. Si vous avez la version 2.0, n’essayez pas de saisir le 
programme, passez directemcnl k son commentaire. 


REM une petite conversation (2) 

PRINT "bonjour, comment t’appelles-tu ?" 
INPUT nom$ 

PRINT nom$;",comment vas-tu ?" 

INPUT reponse$ 

IF reponse$ = "bien" 
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Voire premier programme 


PRINT "je m’en r6jouis" 

ELSEIF reponse$ = "mal" 
PRINT "j’en suis bien pein6 !" 
ELSE 

PRINT "ah bon..." 

ENDIF 

END 


Que pensez-vous maintenant de notre programme ? Vous trouvez que c’est une 
question de gout ? C’est un fait que vous venez de faire connaissance avec une 
nouvelle instruction du GFA Basic. Et si vous avez fait tourner plusieurs fois 
ce programme, vous avez sans doute compris la signification de ELSE et 
ELSEIF: 


L’instruction IF. .ELSE. .ENDIF branche le programme sur diff6rents blocs 
programmes, suivant la valeur logique (vrai ou faux) de "condition". 

L’instrustion ELSEIF n’existe que dans la version 3.0. Elle permet de 
repr6senter des instructions IF imbriquees de fagon plus claire. 

ELSE signifie en frangais autrement et plus precisement ici sinon . Et 
maintenant relisez et comparez avec les programmes 6crits auparavant. La 
commande ELSEIF n’existe malheureusement que depuis la version 3.0; dans 
la version 2.0 vous obtenez le meme effet en plagant IF a la ligne suivante et en 
le faisant suivre de ENDIF: 


REM une petite conversation (2) GFA V2.0 
PRINT "bonjour, comment t’appelles-tu ?" 
INPUT nom$ 

PRINT nom$; ".comment vas-tu ?" 

INPUT reponse$ 

IF reponse$ = M bien" 

PRINT "je m’en r6jouis" 

ELSE 

IF reponse$ = M mal M 
PRINT "j'en suis bien pein6 !" 

ELSE 

PRINT "ah bon..." 

ENDIF 

ENDIF 

END 


Nous aurions pu 6crire : 


IF reponse$ = "bien" 
PRINT "je m’en r6jouis" 
ENDIF 

IF reponse$< >"bien" 
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PRINT "j’en suis bien pein6 1" 
ENDIF 


ou encore: 


IF reponse$ = "bien" 

PRINT "jem’en r6jouis" 

ELSE 

PRINT "j'en suis bien pein6 !" 
ENDIF 


Mais qu’arrive-t-il si par exemple vous repondez en dcrivant ga va 
merveilleusement bien ? Cette fois c’est l’ordinateur qui est pein6! Cela ne vous 
plait pas ? Vous avez une autre possibility: 


IF reponse$ = "bien" 
PRINT "je m'en r6jouis" 
ELSE 

PRINT "ah bon..." 
ENDIF 


Vous avc 2 mamlcnanl la possibility de rcconstruire votre programme en f&isant 
appel aux dcrnieres commandes apprises, ct en ayant recours aussi sou vent que 
nycessaire a ELSE IF pour cxchire des r6ponscs 6ventuclles qui ne scraient 
pas formulees. Pensez k uliliser <Tns> pour intcrcaler une nouvelle ligne ct 
< Control>< Delete > pour en effaccr une que vous pouvez d’ailleurs 
rappeler par < Control > -U (dans la version 3.0): 


IF reponse$ = "bien" 

PRINT "je m’en r6jouis" 

ELSE IF reponse$ - rt mal" 

PRINT "j’en suis bien pein& ! w 
ELSE IF reponse$ = "pas trop bien" 
PRINT "ga ira mieux demain !" 
ELSE IF reponse$ = "tr&s tr&s bien" 
PRINT "magnifique !" 

ELSE 

PRINT "ah bon..." 

ENDIF 


Voyez par vous-meme comment vous avez progresse. II ne vous reste plus 
naturellement qu’ft composer des textes qui vous sembleront plus intelligents 
surtout apr£s PRINT, Et n’oubliez pas de conclure un bloc IF par ENDIF, et 
non pas END IF ! 
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Voire premier programme 


Pour terminer, vous devriez sauvegarder votre programme. Vous vous 
souvenez ? avec Save ou les touches < Shift > < FI >. Ou alors avec Save,A ou 
< Shift > < F2 >. Parvenu presque a la fin de ce chapitre, je voudrais ajouter 
un listing en Basic Standard pour ceux qui pratiquaient par exemple le C64 ou 
le Basic livre avec 1’Atari ST : 


10 REM une petite conversation 

20 PRINT "bonjour, comment t'appelles-tu ?" 

30 INPUT N$ 

40 PRINT N$;",comment vas-tu ?" 

50 INPUT R$ 

60 IF R$ = "bien" THEN PRINT "je m'en r6jouis" 

70 IF R$ < > "bien" THEN PRINT "j'en suis tout triste" 
70 END 


Vous pouvez aussi utiliser THEN dans le GFA Basic version 3.0 ce qui ferait: 


IF reponse$ = "bien" 

IF reponse$ = "bien" THEN 


Mais comme THEN n’a plus d’autre signification dans le GFA Basic, nous ne 
Putiliserons plus dans les programmes suivants. Le GFA Basic n’autorise pas 
la numdrotation des lignes, qui est d’ailleurs inutile. 


2.4. En resume 


Vous connaissez maintenant les mots suivants dans le vocabulaire du GFA 
Basic: 


PRINT 
INPUT 
IF (..THEN) 
ELSE 
ELSE IF 
ENDIF 
REM (ou 1 ) 
END 


J’esp&re que vous vous souvenez de leur signification .En tout cas, vous 
connaissez une instruction d’affichage: 


PRINT 
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et une instruction de saisie: 


INPUT 


Vous savez que le Basic fait la difference entre les chiffres et les lettres, et 
recommit une variable texte grace au suffixe 

De plus, vous connaissez une instruction qui teste la correspondance exacte 
entre deux chames de caracteres : 


IF {condition} 
{instruction} 

ELSE 

{autre instruction} 
ENDIF 


Vous vous souvenez meme qu’avec le GFA Basic vous pouvez emboiter ces 
instructions de controle grace a : 



Et vous n’oubliez pas de terminer vos blocs commengant par IF avec ENDIF ! 

Vous savez que le GFA Basic admet des noms de variables d’une longueur 
pouvant aller jusqu’a 255 caracteres et qu’il distinguera tous les caractdres. 

Si vous voulez donner un nom a un programme ou inserer des remarques dans 
un texte de programme, vous devez utiliser 


[ REM ou apostrophe (’) ___| 

ajoutez a cela END et vous avez la possibilite de marquer le debut et la fin d’un 
programme. D’autre part: 

Save ou < Shift > < FI > (.GFA) (.BAS) 

Save,A ou < Shift > < F2 > (.LST) 
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Voire premier programme 


vous permettent de sauvegarder vos textes dans un fichier dont vous choisissez 
le nom et 

Load ou < FI > (.GFA) (.BAS) 

Merge ou <F2> (.LST) 

vous permettent soit de les charger soit de les ajouter. La commande : 

Run ou < Shift > < F10 > 

vous permet de lancer votre programme. 

Pour effacer un programme dans Pediteur vous allez utiliser 

New ou < Shift > < F4 > 

et pour quitter defmitivement Pediteur GFA vous faites 

Quit ou < Shift > < F3 > 
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Une autre perception du Basic 


Chapitre 3 



M aintcnant que vous avczrtiussi & 6crire vofrc premier programme en GFA 
Basic, il est temps de vous accorder une pause pour soufflcr avant de vous 
plonger plus avant dans I’tilude du GFA Basic. Laisscz-moi vous parler un peu 
du Basic cn general et de ce dialecte Basic en particulier. 


3.1 Pourquoi justement un GFA Basic ? 


Que save/,-vous du Basic ? Qu'il s’agit certes ci'un langage multi-usages destiny 
surtout aux d6bulanis, facile k apprcndrc et k utiliser. Que ce langage a(vail) 
la reputation de voir les probl6mes croitre en meme temps que la complexity 
dcs programmes, que sa simplicity pouvait vile conduire a un manque de clarty 
lors de Pecriture de programmes longs et complexes, Cette image du Basic 
amena la desaf feet ion des programmeurs professionnels a son egard, enlratna 
cPautre part ^apparition d’une 6millation entre programmeurs obtcnanL des 
rdsultats ytonnants grace au Basic mais ccci le plus sou vent grace k des astuces 
de programmation incomprehensibles. 

Car dans sa forme primitive le Basic n’etait pas tres performant en ce qui 
concerne l’articulation et la clart6. Ceux parmi vous qui s’y connaissent devront 
m’accorder qu’avec une poign6e de commandes -PRINT, INPUT, LET, IF, 
THEN et GOTO - ainsi que quelques signes ( = < > ") et Pemploi de la 
numerotation des lignes, on peut ecrire une foule de programmes. Par de 
nombreuses eombinaisons plus ou moms hcureuscs de ccs 616ments, on peut 
tricoter de grands ouvrages qu’on ne parvient quasiment plus a demeler 
ensuite. Voilk ce qui autrefois a cmpech6 PutiKsation du Basic pour de grands 
projets. 
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II serait bien sur exagere d’affirmer que tout cela a change avec le GFA Basic. 
D’abord parce qu’il existe d’autres variantes du Basic pour P Atari qui prennent 
en compte ce besoin de clarte dans P elaboration du programme, et ensuite 
parce que meme avec le GFA Basic un projet de construction peut devenir un 
labyrinthe si les possibilites puissantes de ce Basic sont mal utilis6es. 

Qu’attend-on d’un bon langage de programmation ? 11 devrait etre facile a 
apprendre et tres proche de notre langue usuelle. Si on fait abstraction du fait 
que ce langage ne dispose pas d’un vocabulaire frangais mais anglais, cette 
condition est remplie par presque toutes les versions du Basic. Mais ce n’est 
pas tout, car on voudrait de plus : 

$ pouvoir manipuler aisement les donnees 

i disposer de structures de controle efficaces pour le d6coupage et la 
repdtition de s6quences dans les programmes, si possible meme avoir 
le choix entre plusieurs a la fois pour s’adapter au mieux a la situation 
donn6e par la programmation en cours 

$ avoir la possibilite de decouper des programmes longs en blocs plus 
facilement maitrisables et de convenir de quelques routines et 
procedures. 

Le Basic-standard offert dans le monde des micro-ordinateurs comme par 
exemple le C64, offre peu de possibilites dans tous ces domaines. Les versions 
jointes aux Amiga, Macintosh ou PC sont dejzk plus satisfaisantes. 

Les autres langages comme le Pascal, C et Modula offrent une foule de 
possibilites pour structurer les programmes. Et le GFA Basic n’a pas k rougir 
devant eux comme vous allez pouvoir le constater. 


3.2. Interpreteur ou compilateur ? 


Dans la plupart des cas, le Basic est un langage Interprete : les lignes 
destruction sont executees une par une, et traduites sous une forme 
comprehensible pour Pordinateur ; lorsqu’il rencontre une faute, il peut tout 
de meme executer le programme jusqu’a Pendroit defectueux. Qui plus est, un 
interpreteur execute immediatement les instructions donndes en mode direct. 

Le GFA Basic est lui aussi un interprdteur. Mais il appartient aux interpreters 
ultra-rapides, surtout si on le compare aux interpreteurs-Basic d’autres 
ordinateurs. Toutefois, si sa rapidity ne vous suffisait pas, GFA vous offre 
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dgalement un compilateur approprie (pour la version 2.0 actuellement), qui 
traduit toujours en bloc Pensemble du programme en langage machine, et ne 
le met en route qu’apr£s avoir v6rifie l’absence de faute. Un compilateur ne 
peut pas ex6cuter des ordres entr6s en mode direct. 

A chaque Run y Pintciprdtcur relance le programme en Pexdcutant ligne par 
ligne, et il le retraduit a chaque fok, Ceci prend bcaucoup de temps, or aucun 
programme ne peut tourner sans son inlerpreteur. Par coni re un compilateur, 
aprks avoir traduit une fois un programme sans faute ety avoir ajout£ ce qu’on 
appclic un module de routines, rend ce programme ddfinitivemcnt ulitisablc et 
comprehensible pour P ordinateur sans son compilateur, 

Un programme compil6 tient peu de place dans la me moire, travailie 
rapidement et de fagon aulonome. Un programme interpret# reste lent et 
n£cessite toujours son intcrprfiteun Lcs aulres versions du Basic doivent de 
surcroit toujours trainer avee dies leur 6diteur, alors que le GFA Basic vous 
offre Vintcvpr&icur Run-Only scul (GFABASRG.PRG), ce qui vous per met de 
charger el faire tourner automat iquement des programmes finis Merits en Basic. 
Mais si vous voulez ensuite lcs modifier, vous devez rccourir a la version avec 
6diteur integre. 

Pour fabriquer des programmes insurpassables en rapidite et en densite, vous 
devriez parler a votre ordinateur ST directement dans sa propre langue : le 
langage machine. Son alphabet ne comprend que les signes 1 et 0, que Pon 
aligne dans Pordre voulu. Ce nombre si important de signes rend les chaines 
d’ecriture longues et indechiffrables. 

Cette forme de langage peut tres facilement nous faire commettre des erreurs, 
et nous faire dire a Pordinateur des choses que nous n’aurions jamais du lui 
dire ! 

Pour que vos conversations ne soient pas trop seches et penibles, vous disposez 
du langage assembleur: les chaines de zeros et de uns sont remplacees par des 
abr6viations destructions facilement mdmorisables. Ce type de 
programmation n’est pas seulement plus difficile qu’avec le Basic, mais peut 
etre la source d’une grande confusion. Ne vous y risquez done pas, et 
servez-vous plutot d’un interpr^te ou d’un traducteur pour donner des 
instructions a votre ordinateur. 
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3.3. To GO or not to GO., 


En choisissant de debuter avec le GFA Basic, vous avez la possibilitd de passer 
directement a la programmation structure. En adopt ant cette nouvclle version 
du Basic apr£s avoir utilise les anciennes, vous avez I’occasion de vous 
dSbarrasser des mauvaises habitudes de la programmation-spaghetti ♦ Par 
exemple, vous n’aurez plus a utiliser la num6rotation des lignes existante dans 
le Basic-standard. Pour g6rer des boucles, il suffit de placer des "marques" 
(Label). Chose impossible avec le basic-standard : grace au GFA Basic vous 
pouvez trbs largement vous passer du GOTO, car vous aurez de nombreuses 
autres possibilites. 

Je voudrais pour les exemplcs suivants faire appei de nouveau a notre petit 
programme 'bonjour* t en le modifiant quelque peu. Le premier exemple cst 
£crit en style GOTO tout k fait classique pour un interpr6tcur du Basic 
standard, le deuxidme exemple reprdsente unc solution mterm£diaire, et le 
troisifcme ce qu’on appelle une version NOGOTO : 


5 REM un bonjour boucl6 (1) 

10 PRINT "bonjour, comment vas-tu ?" 

20 INPUT reponse$ 

30 IF reponse$ = "bien" THEN GOTO 100 
40 IFreponse$ = "mal" THEN GOTO 110 
50 PRINT '1u vas bien ou tu vas mal ?": GOTO 20 
100 PRINT "je m’en rSjouis": GOTO 120 
110 PRINT "j’en suis bien pein6 !" 

120 END 

REM un bonjour boucl6 (2) 

PRINT "bonjour, comment vas-tu ?" 
saisie : 

INPUT reponse$ 

IF reponse$ = "bien" 

GOTO positif 
ENDIF 

IF reponse$ = "mal" 

GOTO negatif 
ENDIF 

PRINT "tu vas bien ou tu vas mal ?" 

GOTO saisie 
positif: 

PRINT "je m’en r6jouis" 

END 
negatif: 

PRINT "j’en suis bien pein6 !" 

END 
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Version 3.0 


Version 2.0 


REM un bonjour sans boucle 
PRINT "bonjour, comment vas-tu ?" 
REPEAT 
INPUT reponse$ 

IP reponse$ = "bien" 

PRINT "je m'en r6jouis" 

ELSEIF reponse$ = "mal" 

PRINT "j'en suis bien pein6 I" 

ELSE 

PRINT "tu vas bien ou tu vas mal ?" 
ENDIF 

UNTIL reponse$ = "bien" 

OR reponse$ = "mar 
END 


REM un bonjour sans boucle (3) 
PRINT "bonjour, comment vas-tu ?" 
REPEAT 
INPUT reponse$ 

IF reponse$ = H bien" 

PRINT "je m’en r6jouis" 

ELSE 

IF reponse$ = "mal" 

PRINT "j’en suis bien pein6" 

ELSE 

PRINT "tu vas bien ou tu vas mal" 

ENDIF 

ENDIF 

UNTIL reponse$ = "bien" 

OR reponse$ = "mal" 

END 


Et maintenant ne me reprochez pas d’avoir utilise trop de GOTO dans les deux 
premieres versions, et ne me dites pas qu’il est possible d’ecrire ce programme 
de fa^on beaucoup plus elegante sans le GFA Basic, car vous me couperiez 
Pherbe sous les pieds. En effet, plus mes exemples seront rebutants, plus vous 
serez disposes a faire autrement. 

Tournons-nous vers le troisfeme exemple: peut-on reconnaitre la structure de 
ce programme ? Avez-vous bien constate que REPEAT et UNTIL encadrent 
des instructions qui doivent etre repetees jusqu’a ce qu’on reponde par bien ou 
mal ? 

L’instruction REPEAT...UNTIL, sert a executer un bloc destructions jusqu’a 
ce qu’une condition soit remplie. Une boucle REPEAT...UNTIL est done 
forcement parcourue au moins une fois. 

Et maintenant repr6sentez-vous chacun de ces trois exemples en tant qu’extrait 
d’un programme de plusieurs centaines de lignes : dans le premier cas, vous 
chercherez vainement apres une structure, car il n’y en a pas. Dans le deuxieme 
cas, on soupgonne Pintention d’une structuration. Le troisieme cas vous permet 
de percevoir clairement Particulation du programme en blocs distincts. 

Le style cross-country parait le plus simple : vous courez tete baissee, si vous 
vous trompez de chemin, vous changez tout simplement de direction ou revenez 
le cas echdant a Pembranchement voulu (GOTO). Ceci marche bien pour de 
brefs circuits. Mais si vous avez par contre un grand parcours devant vous, il 
n’est pas sur que vous arriviez au but! 
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Une programmation structure nticessite par contre une plus grande 
preparation, mais vous serez bien plus certain d’arriver au but A temps. Alors 
que d’aulres Jangages de programmation comme le Pascal vous obligcnt A un 
tel style, le Basic vous Iaissc le choix et la possibility de programmer sans but 
precis. Le GFA Basic vous offre un peu des deux: un peu de la liberty qui fait 
apprycier le Basic, et beaucoup des possibililds des langages disciples comme 
le C ou Pascal. 


3.4. Pour votre co nfort 

■ 


Si mes explications thdoriques vous ont qnclque peu ennuy^ voici de nouveau 
un peu de pratique. Je voudrais completer votre savoir de debutant par 
quelques subtilit6s propres au GFA Basic. Reprenez votre premiere oeuvre; 


Version 3.0 


Version 2.0 


REM une petite conversation (1) 

PRINT "bonjour, comment t’appelles-tu ?" 
INPUT nom$ 

PRINT nom$;" p comment vas-tu ?" 

INPUT reponse$ 

IF reponse$ = "bien" 

PRINT "je m’en r6jouis" 

ELSEIF reponse$ = M mar' 

PRINT "j’en suis bien pein6 !“ 

ELSE 

PRINT "ah bon..." 

ENDIF 

END 


REM une petite conversation 

PRINT "bonjour, comment t’appelles-tu ?" 

INPUT nom$ 

PRINT nom$;",comment vas-tu ?" 

INPUT reponse$ 

IF reponse$ = "bien" 

PRINT "je m’en rijouis" 

ELSE 

IF reponse$ = "mal" 

PRINT "j’en suis bien pein6" 

ELSE 

PRINT "ah bon..." 

ENDIF 

ENDIF 

END 
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Laissez-moi bricoler un peu ce programme : 
Version 3.0 Version 2.0 


REM une petite conversation (2) 

INPUT "bonjour, comment t'appelles-tu 
?";nom$ 

PRINT 

PRINT nom$;",comment vas-tu ?" 
INPUT "",reponse$ 

PRINT 

IF reponse$ = "bien M 
PRINT "je m’en r6jouis" 

ELSE IF reponse$ = "mar i 
PRINT "j’en suis bien pein6 I" 

ELSE 

PRINT "ah bon..." 

ENDIF 

END 


REM une petite conversation (2) 

INPUT "bonjour, comment t'appelles-tu 
?"";nom$ 

PRINT 

PRINT nom$;",comment vas-tu ?" 

IF reponse$ = "bien" 

PRINT "je m’en r6jouis" 

ELSE 

IF reponse$ = "mal“ 

PRINT "j’en suis bien pein6 !" 

ELSE 

PRINT "ah bon..." 

ENDIF 

ENDIF 

END 


Essayez cette version : vous savez encore comment appeler l’editeur et 
Pinterpr6teur. Load ou <F1> ou encore Merge on <F2> vous permettent de 
charger Pancien programme depuis le fichier, de le modifier et ensuite de le 
lancer par Run ou < Shift > < F10 >. Vous pouvez ensuite, si vous le desirez, 
sauvegarder la nouvelle version grace a Save ou < Shift > <F1> ou encore 
SaveyA ou < Shift > < F2 >. 

Qu’est-ce-qui change ici ? PRINT ecrit seul engendre une ligne vide. Mais 
surtout, PRINT d6clenche un saut de ligne. S’il faut continuer directement 
apres cette sortie, PRINT doit etre suivi d’une petite indication, le point virgule 
(;) qui pourrait etre remplace par une virgule (,) ou une apostrophe (’). Vous 
verez par vous meme que Peffet n’est pas alors tout a fait le meme. 

Comme vous le constatez, on peut remplacer PRINT texte suivi de INPUT 
variable par INPUT texte ; variable . On peut de meme lors de la saisie laisser 
tomber le point d’interrogation grace k la virgule (,) employee avec INPUT 
entre le texte et la variable. 

Sachez finalement que vous pouvez ecrire les instructions que vous connaissez 
de fagon abr6gee, Pediteur s J y retrouvera: 


p 

remplace PRINT 

inp 

remplace INPUT 

i 

remplace IF 

el 

remplace ELSE (ou ELSE IF) 

en 

remplace ENDIF 

r (ou ’) 

remplace REM 
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Ces abrdviations ainsi que toutes celles du vocabulaire GFA Basic sont 
r6capitulees et classees pour en faciliter Tacces dans le chapitre 16. 


3.5. Resume 


Et voila que vous en savez de nouveau un petit peu plus : par exemple vous 
connaissez la diff6rence entre un Interpreteur et un Compilateur. 

L’interpreteur traduit le programme en train de tourner ligne par ligne en 
langage machine ; le programme ne peut tourner sans son interpreteur. 

Le compilateur traduit d’abord Pensemble du programme en langage 
machine ; le programme machine peut ensuite tourner sans le compilateur. 

Vous savez aussi que PRINT 6crit seul engendre un saut de ligne et que : 



et pour finir, essayez de vous souvenir des possibilites d’abr£viation des 
instructions. 


3-34 


Bien ddbuter en GFA Basic 













Bien debuteren GFA Basic 


4-36 


4-36 


Bien debuter en GFA Basic 



4-37 


Les sauts et les boucies 


Chapitre 4 




P eut-etre vous est-il d6ja arriv6 apres avoir achet6 un nouveau disque de 
votre interprete favori, de vous asseoir dans un fauteuil pour Fecouter. A 
un certain moment, vous bondissez en entendant: 


"you are" 
"you are" 
"you are" 


Une repetition bien mal venue engendree par une rayure. Et meme une 
repetition sans fin que vous devez interrompre vous meme, ce qui vous irrite 
car voili votre disque fichu. 

Vous pensez que ma petite histoire n’a pas sa place ici ? Imaginez-vous 
Fhumeur dans laquelle peut vous mettre un programme en Basic. L’habitude 
tr6s r6pandue de s’asseoir devant son ordinateur et de se mettre k programmer 
tete baissee rend Fapparition de tcllcs boucies quasiment in6vitable. Et 
lorsqu’apres une s6ance de programmation ardue on veut r^colter les fruits de 
son activite, on n’est pas a Fabri de ces mauvaises rencontres que sont par 
exemple des boucies sans fin. Et nous voila en plein dans notre sujet. 
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4.1. Les sauts sont possibles... 


J’esp6re que vous ne me tiendrez pas rigueur d’avoir encore une fois recours k 
une variante de notre petit programme Bonjour a titre d’exemple concret. 

L’ordinateur doit d’abord s’enquerir du nom de son partenaire. Au lieu de 
demander comment vas-tu ? il doit cette fois demander te portes-tu bien ? 
question a laquelle il suffit de r6pondre par oui ou non . Ceci simplifie notre 
comparaison, r^duite a deux possibilit6s. Si vous n’aviez qu’un Basic standard 
a votre disposition, votre programme ressemblerait a ce qui suit: 


10 REM Une petite conversation (1) 

20 INPUT "bonjour, comment t'appelles-tu ?" ;n$ 
30 PRINT n$ ; M ,te portes-tu bien ?" 

40 INPUT r$ 

50 IF r$ = "o" THEN PRINT “je m’en r6jouis" 

60 IF r$ = "n" THEN PRINT "j’en suis bien pein6" 
70 END 


Comme vous le savez depuis le chapitre 3, vous pouvez integrer des textes dans 
^instruction INPUT. Le point-virgule derriere le PRINT de la ligne 30 exige 
que votre rdponse soit entree juste apres la question. Pour simplifier, cette 
r6ponse peut se r6duire aux premieres lettres de oui et non , ce qui est tout k 
fait habituel dans beaucoup de logiciels - comme vous Tavez peut-etre deja 
constate. 

En GFA Basic, la version ci-dessus ne pourrait pas tourner, e’est pourquoi nous 
allons de nouveau consid6rer la version modifiee en consequence : 


REM Une petite conversation (2) 

INPUT "bonjour, comment t'appelles-tu ?";nom$ 
PRINT nom$ ;",te portes-tu bien ?" 

INPUT reponse$ 

IF reponse$ = "o" 

PRINT "je m'en r6jouis" 

ENDIF 

IF reponse$ = "n" 

PRINT "j'en suis bien pein6" 

ENDIF 

END 


Remarquez comme j’ai bien integri le point ^interrogation de saisie des 
donn6es dans la conversation ? Cela ne vous plait-il pas ? 
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A la place du deuxieme IF, nous aurions pu utiliser beaucoup plus ElEgamment 
ELSE: 


INPUT reponse$ 

IF reponse$ = "o" 

PRINT "je m’en r6jouis" 
ELSE 

PRINT "j’en suis bien pein6" 
ENDIF 


Vous eroyez quc ELSE est ici un Equivalent absolu ? Pensez done que le clavier 
de votre ST possEde unc multitude de touches et qu’il varEpondrej'en suis bien 
peine pour toutes les touches qui nc sent pas "o" Comment cela se passerait-il 
avec ELSE IF ? Essayez done! 

II nous faudrait maintenant modifier le programme de telle sorte qu’il ne soit 
possible d’utiliser que les touches "o" ou "n".Si ce n’est que cela !" dirait un 
utilisateur averti du Basic standard et il Ecrirait ainsi le premier exemple : 


10 REM Une petite conversation (3) 

20 INPUT '‘bonjour, comment t’appelles-tu ?";n$ 
30 PRINT n$ ; M ,te portes-tu bien ?" 

40 INPUT r$ 

45 IF r$< >" 0 " AND r$< >"n" THEN GOTO 40 
50 IF r$ = M o M THEN PRINT "je m'en rEjouis" 

60 IF r$ = "n M THEN PRINT "j'en suis bien pein6" 
70 END 


En GFA Basic ceci ne fait aucune difficulte: au lieu d’un numero de ligne e’est 
une etiquette (label) qui delimite ici le saut a Executer: 


REM une petite conversation (4) 

PRINT "bonjour, comment t’appelles-tu ?";nom$ 
PRINT nom$ comment vas-tu ?" 
saisie: 

INPUT reponse$ 

IF reponse$ < > "o" AND reponse$ < > "n" 

GOTO saisie 
ENDIF 

IF reponse$ = M o" 

PRINT "je m’en rEjouis" 

ELSE 

PRINT "j’en suis bien pein6 !" 

ENDIF 

END 


Le savoir de base en GFA Basic 


4-39 





Bien debuter en GFA Basic 


4-40 


L’ordinateur teste d’abord ^instruction INPUTreponse $: si la reponse n’est ni 
"o" ni "n", il rdpete la demande, ce qui signifie qu’il a fait un saut pour revenir 
en arriere dans le programme. 

L’instruction GOTO Saisie permet au programme de reprendre le traitement 
des instructions a partir de l’etiquette saisie 

GOTO quant a lui contribue a rdpandre une mauvaise habitude: vous etes assis 
devant votre ordinateur et vous n’avez encore qu’une id6e confuse de ce que 
vous voulez faire. Vous espdrez bien que la clart6 viendra au fur et h mesure 
de P6criture du programme. Lorsque vous rencontrez des difficult6s, vous les 
laissez tout simplement de cot6. 

Si vous pensez que vous n’etes pas comme $a, essayez done de faire un petit 
programme: apres avoir introduit un nombre quelconque, vous devez obtenir 
sa valeur inverse, qui est 1 divise par ce nombre - vous vous en rappelez ? 

Admettons que vous ayez deja 6crit quelques lignes semblables k ceci: 


INPUT "entrez un nombre : “.nombre 
inverse = 1/nombre 

PRINT “la valeur inverse de " ;nombre est “;inverse 


Soudain vous hesitez, ou vous ne le remarquez qu’apres quelques essais: z6ro 
n’a pas de valeur inverse, car on ne peut pas diviser par zero. Vous rdflechissez 
un peu et vous pensez sauver la situation par un petit saut apres avoir d’abord 
delimit^ le passage vis6: 


saisie: 

INPUT "entrez un nombre : H ,nombre 
IF nombre = 0 
GOTO saisie 
ENDIF 

inverse = 1/nombre 

PRINT "la valeur inverse de ";nombre;" est "jinverse 


4.2. ...mais ils ne sont pas indispensables 


Voici la situation dans laquelle vous pourriez vous trouver si vous vous mettez 
a programmer directement sans planifier auparavant vos intentions : a un 
certain endroit du programme vous remarquez qu’une partie du texte devrait 
se r6p6ter, car en certaines circonstances il faut que le programme se repute 
ou saute a une autre instruction. 
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II ne vous reste plus alors qu’k rechercher Tcndroit oil la boucle devrait 
commencer et ou ensuite le programme devrait continuer. Apres avoir pose 
une balise (k Paide du double-point) vous n’avez plus qu’a y envoyer 
Pordinateur par un GOTO. 

Peut-etre avez-vous reflechi un peu plus longuement et pens6 a toutes les 
instructions necessaires ? Vous savez done avant meme d’ecrire votre 
programme, k quel endroit la boucle doit commencer et se terminer. 

Le GFA Basic vous offre deux instructions pour d6couper votre programme: 


REPEAT pour marquer le d6but de la boucle 


et 


UNTIL pour marquer la fin de la boucle. 


Voyons cela de plus pres avec l’exemple de la saisie d’un nombre : 


REPEAT 

INPUT "entrez un nombre nombre 
UNTIL 


Pour le calcul d’une valeur inverse, il reste encore une condition k remplir : il 
faut recommencer la saisie aussi longtemps que necessaire jusqu’& ce qu’un 
nombre different de zero (< >0) soit entr6. 

Done notre programme pourrait avoir Pallure suivante : 


REM Valeur inverse d'un nombre 
REPEAT 

INPUT "entrez un nombre : ".nombre 
UNTIL nombre < >0 
inverse = 1/nombre 

PRINT "la valeur inverse de ";nombre;"est";inverse 
END 


Reprenons notre programme Bonjour et essayons d’y appliquer ce que nous 
venons d’apprendre. Attendez ! essayez d’abord tout seul et ensuite verifiez: 


REM une petite conversation (5) 

INPUT "bonjour, comment t’appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ?" 
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REPEAT 
INPUT reponse$ 

UNTIL reponse$="o M OR reponse$ = M n" 
IF reponse$ = "o' 1 
PRINT "je m'en r6jouis" 

ELSE 

PRINT "j'en suis bien pein6 I" 

ENDIF 

END 


Nous devrions comparer les deux variantes (4) et (5) de notre conversation . 
Que constatons-nous ? Examinez de plus pres les deux conditions : 


(5) UNTIL reponse$ = ,l o" OR reponse$ = "n M 
(4)IF reponse$ < > "o M AND reponse$ < > "n" 
GOTO saisie 
ENDIF 


Nous remarquons que les lignes : 


reponse$ = M o M and "reponse$" = ll n 1 ' 
reponse$= < >"o" and reponse$ < >“n" 


sont soit fausses, soit vraies. On dit qu’elles renvoient des valeurs logiques 
(VRAI ou FAUX). GFA Basic soutient justement des variables pour g6rer des 
rdponses logiques. Ces variables doivent etre suivies du symbole !. 

Par exemple, nous allons creer deux variables logiques nominees rupture ! et 
repetition !: 


rupture ! = reponse$ = ll o 1 ’OR reponse$ = M n“ 

repetition I = reponse$< > M o" AND reponse$< >"n" 


Ainsi, supposons que reponse$ contienne la valeur "p". La variable rupture ! 
retourne une rdponse fausse alors que Repetition ! renvoie une reponse vraie. 
Dans ce cas, Rupture ! est une variable valant 0 (rupture ! = 0), repetition! vaut 
par contre -1 (repetition ! = -1). Ces variables s’appellent couramment des 
variables bool6ennes. 

Nous allons done exploiter cette facility syntaxique pour clarifier nos 
programmes. 
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Version 2.0 et Version 3.0 


REM une petite conversation (5) 

INPUT "bonjour, comment t'appelles-tu ?";Nom$ 
PRINT nom$; M , te portes-tu bien ?" 

REPEAT 
INPUT reponse$ 

RUPTURE I = reponse$ = "o" or reponse$ = M n" 
UNTIL RUPTURE ! = true 
IF reponse$ = "o" 

PRINT "je m’en r6jouis" 

ELSE 

PRINT "j’en suis pein6 I" 

ENDIF 

END 


L------ 

La boucle 

Repeat 

Until rupture ! = true 


est equivalente k 

Repeat 

Until rupture ! = -1 


ou 

r Saisie 
if repetition ! 

Goto saisie 

End if 


Dans les deux cas, une fois parvenu a la fin de la boucle, Pinterpreteur verifie 
si la condition est bien remplie : 

Dans la conversation 4 la boucle est repdtee par un saut lorsque la condition 
repetition est remplie, sinon la boucle est terminee. 

Dans la conversation 5 la boucle prend fm lorsque la condition rupture est 
remplie, sinon elle se r6p£te. 

Si les deux versions du programme ont bien le meme effet, Pune des conditions 
repr£sente ccpendant le contraire de Pautre. II en va ainsi puisque UNTIL sert 
bien k metirc fin k la boucle alors que GOTO sert k repSter la boucle. 

II apparait done que chaque proposition peut se transformer en son contraire; 
ici par exemple ’’ =" devient" < >" et "OR" devient "AND". 

On peut sans doute discuter pour savoir quelle version parait la plus logique. 
Je dis k l’ordinateur d’attendre une certaine reponse. Si elle ne remplit pas 
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certaines conditions, il doit repeter sa demande et retourner & ^instruction de 
saisie. Ou alors je dis a l’ordinateur qu’il doit laisser entrer des reponses jusqu’a 
ce que l’une d’elles remplisse les conditions definies. 


4.3. Aussi longtemps...jusqu’a ce que... 


Nous n’avons parl6 jusqu’ici que de la fin de la boucle. Mais toute boucle a un 
debut! et c’est cela que nous allons maintenant examiner : 


REM une petite conversation (6) 

INPUT "bonjour, comment t'appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ?" 

WHILE reponse$< > M o" AND reponse$= < >"n" 
INPUT reponse$ 

WEND 

IF reponse$="o'' 

PRINT "je m'en r6jouis" 

ELSE 

PRINT "j'en suis bien pein6 !" 

ENDIF 

END 


Voici le meme programme utilisant la variable booleenne repetition !: 


REM petite conversation (6) 

INPUT "bonjour, comment t'appelles-tu ?";nom$ 

PRINT nom$;", te portes-tu bien ?" 

WHILE repetition ! = False 
INPUT reponse$ 

Repetition ! = Reponse$< >"o M and reponse$< >"n" 
IF reponse$ ="o" 

PRINT “je m'en r£jouis" 

ELSE 

PRINT "j'en suis pein6" 

ENDIF 

WEND 

END 


Voila qui rend possible un controle d6s le d6but de la boucle! Ce qui ne change 
rien a la condition requise. Etudions de nouveau les limites de la boucle: 


WHILE repetition I 

{ 

WEND 
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Les sauts et les boucles 


La nouvelle version du GFA Basic vous offre d’ailleurs encore d autres 
possibilites que je ne vais pas vous cacher : 


REM une petite conversation (7) 

INPUT "bonjour, comment t’appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ?" 

DO 

INPUT reponse$ 

LOOP UNTIL reponse$ = "o" OR reponse$ = "n" 
IF reponse$ = H o" 

PRINT "jem'en rSjouis" 

ELSE 

PRINT "j'en suis bien pein6 ! H 
ENDIF 
END 


Resumons: 


L’instruction DO LOOP effectue une boucle de traitement de la meme fagon 
que REPEAT UNTIL. La nuance est dans le fait que la boucle est sans fin a 
moins d’y integrer Tinstruction EXIT IF. 

L’instruction WHILE WEND cree une boucle contenant un bloc 
destructions. Ces instructions sont trait6es SI la condition est remplie et tant 
que la condition est remplie, cela veut dire qu’un premier parcours n’est 
autoris6 que si la condition est v6rifiee. 

Version 3.0 


REM une petite conversation (8) 

INPUT "bonjour, comment fappelles-tu ?";nom$ 
PRINT nom$; M ,te portes-tu bten T 
DO WHILE reponse$< >"o <l AND reponse$< > M n" 
INPUT reponse$ 

LOOP 

IF reponse$ = "o" 

PRINT "je m’en r6jouis" 

ELSE 

PRINT "j’en suis bien pein6 !" 

ENDIF 

END 


Les boucles ont la forme suivante : 
DO 

LOOP UNTIL rupture ! 
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ou encore: 


DO WHLE repetition ! 

{ 

LOOP 


Et si vous essayez, vous constaterez que vous pouvez aussi combiner DO 
UNTIL et LOOP WHILE, mais attention, seulement dans la version 3.0. 

A y regarder de plus pr&s, les appellations repetition / et rupture / ne sont pas 
toujours bien appropriees. Car il n’est pas sans importance de placer la 
condition entrainant Pex6cution de la boucle au debut ou a la fin de cette 
derniere. 

Dans le cas de WHILE...WEND, DO WHILE...LOOP ou DO 
UNTIL...LOOP, les valeurs des rdponscs sont iesl£es avant d'entrer dans la 
boucle. Dans certains cas, il u’est done memc pas besoin d’cx^cuter cellc-ci. 
Ce type do boucle est recommandfe pour reperer des valeurs fausses qui 
pourraient fairc 6chouer le programme lorsqu’il tournc. 

Dans le cas de REPEAT...UNTIL, DO...LOOP WHILE ou DO...LOOP 
UNTIL, la boucle est parcourue au moins une fois, car Pordinateur doit 
parcourir la boucle pour tester les valeurs. 

Ce type de boucle est recommande pour tester des conditions qui apparaissent 
dans la boucle ou qui se transformed. 

Exercice pour la version 3.0 : 

Commc.vous le constatez, le GFA Basic (version 3.0) vous offre de nombreuses 
possibility de boucles. A ccux qui ont done cette version, je leur demande de 
bien vouloir pratiquer Pexcrcice sinvant. Entrez ce programme mais ne 
Pex£cutcz pas avant d’avoir lu la suite du lexte: 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t'appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ? (o/n)"; 

DO 

INPUT reponse$ 

LOOP 

IF reponse$ = M o" 

PRINT "je m'en r6jouis" 

ELSE 

PRINT "j’espdre que ga va s’am6liorer I" 
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ENDIF 

PRINT 

PRINT "quel 3ge as-tu done ?"; 

DO 

INPUT age 
LOOP 

IF age > 2 AND age < 20 
PRINT "done tu sais d6j& marcher" 

ELSE IF age >=20 
PRINT "done tu es un grand" 

ENDIF 

pro = age*100/antique 

PRINT "et tu as d6j&";pro;"% de ta vie derrfere toi!" 

PRINT 

beaucoup = eternite-age 

PRINT "je te souhaite encore ";beaucoup;" d’ann6es k vivre, ";nom$;" I" 
END 


Si vous tenez a faire tourner le programme "un grand bonjour" tel qu’il est ecrit 
ci-dessus, sachez que vous pouvez interrompre le d6roulement d’un 
programme en appuyant simultan6ment les touches 
< Alternate > < Shift > < Control >... 

Vous trouvez dans ce programme deux boucles DO...LOOP sans condition. 
Dans la version 3.0, completez-les de fa$on k ce que dans le premier cas seules 
les reponses "o" ou "n" soient possibles et que dans le deuxieme cas on ne puisse 
entrer qu’un age compris entre 1 et 99 ans. Prenez le temps de faire tourner 
toutes les versions possibles. 

Voici un exemple de solution pour la version 3.0 : 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t'appelles-tu ?" l nom$ 
PRINT nom$;", te portes-tu bien ?" 

DO 

INPUT reponse$ 

LOOP UNTIL reponse$ = "o" OR reponse$ = "n" 
IF r$ = "o" 

PRINT "je m’en rSjouis" 

ELSE 

PRINT "j’espfcre que $a va s’am^liorer!" 

ENDIF 

PRINT 

PRINT "quel kge as-tu done ?"; 

DO 

INPUT age 

LOOP UNTIL age > 1 AND age < 99 
IF age > 2AND age < 20 
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PRINT "done tu sals d6ja marcher" 

ELSE IF age >=20 
PRINT "done tu es grand" 

ENDIF 

pro = age*100/antique 

PRINT "et tu as d6ja ";pro;'‘ de ta vie derri&re toi" 

PRINT 

beaucoup = eternite-age 

PRINT "je te souhaite encore ";beaucoup; H d'annSes k vivre ";nom$;"!" 
END 


Exercice pour la version 2.0: 

Nous allons maintenant proposer le meme exercice, mais adapte a la version 
2.0. Dans cet exercice, le programme contiendra deux boucles DO...LOOP. 
Cependant, ce type de structure est une boucle sans fin, e’est-^-dire qu’elle ne 
s’arrete pas. Pour interrompre ce genre de situation, il faut utiliser une 
instruction EXIT IF < condition >. Prenons Fexemple suivant: 


DO 

INPUT nom$ 
LOOP 


C’est le cas le plus courant d’une boucle sans fin. Pour sortir de la boucle, il 
faudra appuyer simultan6ment sur les touches < Control > < Shift > et 
< Alternate >. La maitrise de ce genre de conflit passe par Pinstruction EXIT: 


DO 

INPUT nom$ 

EXIT IF nom$ = "o" OR nom$ = "n" 
LOOP 


La boucle est parcourue une fois, la saisie est enregistr6e dans nom$. Si cette 
saisie est "o" ou "n", Pinstruction EXIT prend son effet et la boucle est 
interrompue. Dans le cas contraire, c’est parti pour un nouveau tour. 

Void comme prevu l’exercice annonce. Le programme contient deux boucles 
DO...LOOP. Modifiez-le de fagon k ce que dans la premiere boucle, seules les 
valeurs "o" ou "n" soient admises, et que dans la seconde boucle, la saisie d’un 
age sup6rieur a 1000 permette d’arreter le deroulement du programme : 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t’appelles-tu ?",nom$ 
PRINT nom$; M , te portes-tu bien ?" 

DO 
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INPUT reponse$ 

IF reponse$="o M 
PRINT "je m’en r6jouis" 

ENDIF 

IF reponse$ = "n M 

PRINT "j’espfcre que ga va s’amSIiorer!" 

ENDIF 

LOOP 

PRINT 

PRINT “quel &ge as-tu done ?"; 

DO 

INPUT age 

IF age > 2 AND age < 20 
PRINT "done tu sais d6j& marcher" 

ENDIF 

pro = age*100/antique 

PRINT “et tu as d6j& ";pro; M de ta vie derridre toi" 
PRINT 

beaucoup = eternite-age 
LOOP 


Void maintenant un exemple de solution: 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t’appelles-tu ? M ,nom$ 

PRINT nom$;", te portes-tu bien ?" 

DO 

INPUT reponse$ 

IF reponse$ = “o" 

PRINT “je m’en r6jouis“ 

ENDIF 

IF reponse$ = "n" 

PRINT "j'esp&re que ga va s’am6liorer!" 

ENDIF 

EXIT IF reponse$ = "o" OR reponse$ = "n" 

LOOP 

PRINT 

PRINT "quel &ge as-tu done ?"; 

DO 

INPUT age 

IF age > 2 AND age < 20 
PRINT “done tu sais d6j& marcher" 

ENDIF 

pro = age*100/antique 

PRINT "et tu as d6j£ ";pro;“ de ta vie derrifcre toi" 

PRINT 

beaucoup = eternite-age 

PRINT "je te souhaite encore "jbeaucoup;" d’ann6es k vivre ";nom$;"!" 

PRINT 

PRINT 

PRINT "comme vous §tes dans un boucle sans fin (DO-LOOP), il faut si vous" 


Le savoir de base en GFA Basic 


4-49 





Bien debuter en GFA Basic 


4-50 


PRINT "d6sirez quitter ce prg appuyer simultan6ment sur control/shift/ 
PRINT "alternate ou alors taper que vous avez 1000 ans" 

PRINT 

EXIT IF age >999 
LOOP 


4.4 Resume 


Vous venez d’apprendre quelques nouveautes ainsi que quelques instructions 
de base. Nous n’en avons pas encore termini avec les boucles, mais je vous 
accorde une petite pause. Voici un survol des procddures de r6p6tition que 
vous connaissez: 

Les boucles avec test au d6but, dans la mesure ou la condition est remplie : 


WHILE {condition} 
{instruction (s)} 
WEND 

DO WHILE {condition} 
{instruction (s)} 
LOOP 


Les boucles avec test au debut, jusqu’a ce que la condition soit remplie : 


DO UNTIL {condition} 
{instruction} 

LOOP 


Les boucles avec test a la fin, jusqu’a ce que la condition soit remplie : 


REPEAT 
{instruction(s)} 
UNTIL {condition} 


DO 

{instruction (s)} 

LOOP UNTIL {condition} 


Les boucles avec test a la fin, dans la mesure ou la condition est remplie: 


DO 

{instruction (s)} 

LOOP WHILE {condition} 
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Enfin souvenez-vous des trois touches < Alternate > < Shift > < Control > et 
de Pinstruction EXIT IF. 


DO 

{instructions} 

EXIT IF {conditions} 
LOOP 
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Les repetitions 


Chapitre 5 



V ous connaissez bien cette situation : vous voulez dire quelque chose k 
quelqu’un, mais il/elle ne vous ecoute pas. Cependant vous voulez 
absolument le lui dire, si bien que vous repetez votre phrase. Pour insister, vous 
prolongez votre phrase d’une formule du genre: combien defois t’ai-je dejd dit 
que ... ou mem e/e t’ai dejd dit cent fois que ... 

Si votre phrase n’est toujours pas perdue, et que vous ne voulez pas renoncer, 
vous voila embarqud dans une boucle sans Hu. Celle situation se presente plus 
souvcnl lors de la programmaiion que dans la vie dc tous les jours. A Forigine, 
il y a souvent une action non reflechie. 

5.1. Pour savoir compter, il faut apprendre 


Jusqu’& prdsent les rdpdlitions dans un programme dtaient I16es a une 
condition. Selon les cas, on ne parcourait pas la boucle, on ne la rdpetait qu’une 
fois ou plus si ndeessaire. Il y a des situations ou le nombre de repetitions est 
tres important. 

Prenons un exemple parmi les jeux de hasard : pour le loto, il vous faut une 
suite de nombres dont la valeur ne vous est tout d’abord pas connue et ne peut 
etre que supposee. Au loto, on ne sait qu’une chose : il vous faut une suite de 
6 nombres compris entre 1 et 49. 

Si vous voulez que votre ordinateur jouc pour vous au loto, ii faut quil gtire une 
suite dc nombres qui ait Fair d'etre la combinaison gagnante pour le prochain 
tirage. Dans le basic GFA version 3.0, vous pouvez melt re en mouvement la 
roue de la fortune grace k RANDOMIZE qui csl un gendrateur dc nombres 
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aleatoires. La fonction RANDOMIZE n’existe pas dans la version 2.0. II faut 
utiliser a la place la fonction RANDOM. La formule : 


loto = RANDOM(49) +1 


engendre un nombre entier compris entre 1 et 49 : RANDOM engendre un 
nombre superieur a 0 et inferieur k 49. Si on y ajoute 1 nous obtenons les limites 
de 1 a 49. 


La fonction RANDOMIZE dans la version GFA 3.0 sert a initialiser le 
g6n£rateur des nombres aleatoires. A chaque debut de programme le 
gendrateur des nombres aleatoires est initialise. 


Dans la version 2.0, il faudra ecrire RAMDOM(x) qui sert a retourner un 
nombre entier aleatoire compris entre 0 inclus et X exclu. 


Revenons maintenant au programme : 


Version 3.0 RANDOMIZE, RAND, RND 


Version 2.0 RANDOM, RND 


'ALEAS 

PRINT "avec RANDOM" 

1 RANDOM 
FOR c = 1 TO 6 
loto = RANDOM(49) +1 
PRINT "chiffre no ";c;" est: ";loto 
NEXT c 
PRINT 

PRINT "avec RAND" 

FOR c= 1 TO 6 
loto = RAND(49) +1 
PRINT "chiffre no ";c;" est: ";loto 
NEXT c 
PRINT 

PRINT "avec RND" 

FOR c = 1 TO 6 
loto = RND (49) 

loto = loto*(49) ! comme avec RND la 
valeur est < = 1 il faut * par 49 
loto = INT (loto) I arrondir le chiffre 
(partie entidre) 

PRINT "chiffre no ";c; H est :";loto 
NEXT c 


'ALEAS 

PRINT "avec RANDOM" 

1 RANDOM 
FOR C = 1 TO 6 
loto = RANDOM (49) +1 
PRINT "chiffre no ";c;" est: ";loto 
NEXT C 
PRINT 

PRINT "RAND n’existe pas dans la version 
du GFA basic 2.02" 

PRINT 

PRINT "avec RND" 

FOR C= 1 TO 6 
loto = RND(49) 

loto = loto*(49) I comme avec RND la 
valeur est < = 1 il faut * par 49 
loto = INT(loto) ! arrondir le chiffre 
(partie entire) 

PRINT "chiffre no ";c;" est :";loto 
NEXT C 


Vous avez deux fagons de presenter les r6sultats : 


PRINT LOTO' 
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affichera par exemple 



Avant que vous ne vous precipitiez jusqu’a votre bureau de validation habituel 
du loto, nous devrions regarder une fois encore de plus pres notre programme 
surtout du cot6 des limites de la boucle : 


FOR compteur = 1 TO 6 

{ 

NEXT compteur 


Comme vous le constatez, FOR et NEXT marquent le debut et la fin de la 
boucle. Compteur est la variable qui avance pas a pas de 1 a 6, qui pour ainsi 
dire accompagne le compteur. Vous pouvez constater par les deux exemples 
suivants que vous pourriez le faire compter a Penvers ou lui faire sauter des 
etapes: 

Version 3.0 Version 2.0 


REM pour ta version 

du GFA Basic 3.03 comptant k I’envers 

PRINT "DOWNTO" 

FOR c = 6 DOWNTO 1 
loto = RANDOM(49) +1 
PRINT 11 chiffre no l, ;c;" EST : M ;loto 
NEXT C 


REM pour la version 

du GFA Basic 2.02 comptant k I’envers 

PRINT "STEP-1 11 
FOR c = 6 TO 1 STEP-1 
loto = RANDOM (49)+ 1 
PRINT " chiffre no ";c;" EST :";loto 
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Version 3.0 


Version 2,0 


REM Loto GFA comptant par deux 


REM Loto GFA comptant par deux 

RANDOMIZE 


FOR compteur = 1 TO 11 STEP 2 

FOR compteur =1 TO 11 STEP 2 


loto = RANDOM(49) + 1 

loto = RANDOM(49) +1 


PRINT loto* 

PRINT loto’ 


NEXT compteur 

NEXT compteur 


END 

END 

i 


L’instruction FOR TO NEXT est un compteur qui incr6mente ou d6cr6mente 
la variable a chaque passage. C’est une boucle de comptage. FOR TO NEXT 
peut etre accompagn6 de STEP. La variable est augmentee de la valeur qui 
figure avec STEP. 

Pour etre complet dans nos explications, pr6cisons que FOR...TO sans rien 
derriere est Equivalent k FOR...TO...STEP 1. Et que FOR...DOWNTO 
Equivaut a FOR...TO...STEP -1. Essayez de voir par vous-meme si on peut 
utiliser des nombres autres qu’entiers avec STEP. 

II y a cependant un os dans ce programme, car il ne vous garantit pas d’obtenir 
6 nombres diffErents ! Lorsque vous en saurez un peu plus, il ne vous sera pas 
difficile d’ameliorer ce petit programme en consEquence. Mais je ne vous 
garantis pas pour autant que vous gagnerez au loto ! 

II en va d’ailleurs de meme pour la version modifiEe ci-dessous, dans laquelle 
FOR...NEXT est remplacE par deux types de boucles que vous connaissez: 


Version 3.0 


Version 2.0 


REM Loto GFA While 

■ 

REM Loto GFA While 

RANDOMIZE 


WHILE compteur <6 

WHILE compteur < 6 
loto = RANDOM(49) +1 

PRINT loto’ 


loto = RANDOM (49) +1 

PRINT loto' 


UNTIL compteur = 6 

END 

WEND 

END 




Version 3.0 


Version 2.0 


REM Loto GFA Until 

■ 

REM Loto GFA Until 

RANDOMIZE 

REPEAT 

loto = RANDOM(49) +1 

PRINT loto’ 


REPEAT 

loto = RANDOM(49) +1 

PRINT loto’ 


UNTIL compteur=6 

END 

UNTIL compteur = 6 

END 

i 
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Avez-vous termine de taper ces petits programmes et de les faire tourner ? 
Voycz cormnc vous dies puni de les avoir repris sans exercer votre sens 
critique ! cn effct les deux boucles conticnnent une grosse erreur : elles 
remplissent sans faille leur mission, mais elles no veulent plus s’arreter ! 

Vous ne pourrez sortir d’une telle boucle sans fin, qu’en appuyant 
simultanement < Alternate > < Shift > < Control >. 


5.2. Monter et descendre 


Si vous avez bien regarde, vous avez vu que le compteur ne change pas. Vous 
mettrez un terme a ces boucles en ajoutant en bonne place Indication 
compteur = compteur + 1 : 


Version 3.0 


Version 2.0 


REM Loto GFA While 

1 

REM Loto GFA While 

RANDOMIZE 


WHILE compteur <6 

WHILE compteur < 6 


compteur = compteur +1 

compteur=compteur+1 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 


PRINT loto’ 

PRINT loto' 


WEND 

WEND 


END 

END 



Version 3.0 


Version 2.0 


REM Loto GFA Until 


REM Loto GFA Until 

RANDOMIZE 


REPEAT 

REPEAT 


compteur=compteur+1 

compteur=compteur +1 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 

PRINT loto’ 


PRINT loto' 


UNTIL compteur = 6 

UNTIL compteur = 6 


END 

END 




Vous voyez bien qu’il faut d’abord appr endre avant de savoir compter! Le GFA 
Basic en fait pourtant un peu plus dans ce domaine. Regardez ce que vous 
pouvez faire lors du comptage en avant: 
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Version 3.0 


Version 2.0 


REM Loto GFA While 

1 

REM Loto GFA While 

RANDOMIZE 


WHILE compteur < 6 

WHILE compteur<6 


INC compteur 

INC compteur 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 


PRINT loto 1 

PRINT loto’ 


WEND 

WEND 


END 

END 



Version 3.0 


Version 2.0 


REM Loto GFA Until 


REM Loto GFA Until 

RANDOMIZE 


REPEAT 

REPEAT 


INC compteur 

INC compteur 


loto = RANDOM (49)+ 1 

loto = RANDOM(49) +1 


PRINT loto’ 

PRINT loto’ 


UNTIL compteur=6 

UNTIL compteur = 6 


END 

END 



Vous avez trouve ? 

INC veut dire incrementer et signifie: augmenter la valeur d’une variable. Vous 
me direz qu’il doit done y avoir quelque chose pour la faire diminuer : 

DEC est l’abreviation de decrementer et compte a rebours pas a pas; vous n’etes 
pas encore au bout de vos surprises : 


REM Monter et descendre les escaliers 
PRINT "combien de marches franchis-tu en une enjamb6e ?" 
INPUT "en montant :",marches 
WHILE montant <99 
PRINT montant, 

ADD montant,marches 
WEND 
PRINT 99 

INPUT "en descendant:",marches 
descendant = 100 
WHILE descendant >0 
PRINT descendant 
SUB descendant,marches 
WEND 
PRINT 0 

INPUT "".touches 
END 
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L’mdication INPUT m \touehe est en quelque sorle un ordre d’attente, qui 
empcche quc Paffichage des nombrcs soil recouvcrl & la fin du programme par 
cclui de la fcnetrc de dialogue* Si vous ne voulcz plus voir la colonne de 
nombres, appuyez tout simplement sur < Return >. 

Vous pouvez vous meme d6terminer Pimportance des enjambees, et essayer 
des nombres-a-virgule. Vous constatez qu’il y a equivalence entre les 
instructions: 


ADD compteur.marches 


et 


compteur = compteur + marches 


ainsi qu ! entre: 


SUB compteur.marches 


et 


compteur = compteur-marches_ 

Si vous le desirez, vous disposez de plus des instructions suivantes : 


MUL compteur.marches 


qui remplace 


compteur=compteur*marches 


et 


DIV compteur.marches 


qui remplace 


compteur = compteur/marches__| 

Lorsqu’il s’agit d’une incrementation par pas d’une unit6 nous n’utiliserons 
dorenavant que les commandes INC eiL DEC. 


Le savoir de base en GFA Basic 


5-59 











Bien debuter en GFA Basic 


5-60 


Ce petit paragraphe traitera sur les fonctions arithmetiques du GFA Basic. 
Ceci est valable aussi bien pour la version 2.0 que pour la version 3.0 : 

L’addition: 

L’instruction est "ADD". Elle additionne les variables entre elles : 

x = x+y 6quivaut k ADD x,y 
La soustraction: 

L’instruction est "SUB". Elle soustrait les variables entre elles: 

x=x-y 6quivaut k SUB x,y 
La division: 

L’instruction est "DIV". Elle divise les variables entre elles : 
x = x/y 6quivaut k DIV x,y 

La multiplication: 

L’instruction est "MUL". Elle multiplie les variables entre elles : 
x=x*y Gquivaut k MULx.y 

5.3. Des boucles sans fin ? 


Restons-en a notre probleme sans fin. Je vais utiliser pour cela un exemple tir6 
de n’importe quel manuel de base du Basic et adapt6 pour le GFA Basic: 


repeter_toujours: 
PRINT "you are” 

GOTO repeter_toujours 


Voila ce qu’on appelle un saut sans condition prealable. On trouve quelque 
chose de comparable avec la structure DO...LOOP que voici dans une nouvelle 
version de notre programme Loto : 
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Les repetitions 


Version 3.0 Version 2.0 


REM Loto sans fin 


REM Loto sans fin 

RANDOMIZE 


DO 

DO 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 


PRINT loto 1 

PRINT loto' 


LOOP 

LOOP 


END 

END 

1 


Lc comptage d’unc variable ne vous servirait & rien ici, car ce n’esl qu’cn 
appuyant sur < Alternate > < Shift > < Control > qnc vous pourrez sortir de 
ce programme qui sinon vous fournira sans arret de nouveaux chiffres pour 
voire loto. La version 2.0 du GFA Basic dispose d<$j& de cette forme de 
DO...LOOP. 

Les boucles sans fin sont toutefois engendrees le plus souvent par l’enonce 
d’une condition qui ne peut pas etre remplie. Vous devriez done tester 
immediatement toutes les conditions que vous integrez dans vos programmes 
pour savoir si elles peuvent etre remplies. 

Mais il arrive meme qu’un programmer exp6riment6 derive de idles boucles 
dans un programme. C’est pourquoi il est vivement conscille, avant de lancer 
un programme dont on n’esl pas sur, de lc sauvegardcr par SAVE ou SAVE,A 
dans un fichier a part. De cette fagon, si on rcste bloqud dans unc boucle sans 
fin, on a toujours au moins unc copie du dernier £tat du texte du programme. 

Jouons encore un peu avec le hasard: est-ce que ceci vous plait ? 


Version 3.0 Version 2.0 


REM Loto total 


REM Loto total 

RANDOMIZE 


PRINT 

PRINT 


REPEAT 

REPEAT 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 


PRINT loto 

PRINT loto' 


UNTIL loto = 6 

UNTIL loto = 6 


END 

END 



Cola peut arriver ou ne pas arriver: la probability de voir survenir le chjffre 6 
pour "loto" est assez forte et croit en tout cas avec le nombre des repetitions. 
Mais il n’csl pas exclu non plus que cette probability (loto = 6) ne se prodiuse 
jamais. Il est done conseilld ici d’introduire une deuxiemc condition 
interrompant lc dyroulcment de cette boucle au bout d’un certain temps. 
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Tournons-nous vers notre programme un grand bonjour : quelqu’un pourrait 
appuyer constamment sur une touche qui ne soit ni "o" ni "n" aprds reponse$ et 
entrer constamment un chiffre hors limites pour age. Ceci engendrerait une 
boucle sans fin qu’il faut 6viter : 

Version 3,0 Version 2.0 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t’appelles-tu 
?";nom$ 

PRINT nom$;"te portes-tu bien ? (o/n)"; 
WHILE reponse$< > M o" AND reponse$ 

< >"n" AND saisie< 10 
INC saisie 
INPUT reponse$ 

WEND 

IF reponse$ = l, o" 

PRINT "je m'en r6jouis" 

ELSE 

PRINT "j’esp^re que ga va s’am6liorer! 
ENDIF 
PRINT 

PRINT "quel age as-tu done ?"; 

REPEAT 
INC saisie 
INPUT age 

UNTIL age > 0 AND age < 100 OR 
saisie = 10 

IF age > 2 AND age < 20 
PRINT "tu sais done d6j& marcher" 
ELSE IF age = 20 AND saisie < = 5 
PRINT "done tu es un grand" 

ENDIF 
IF saisie >5 
PRINT "plaisantin" 

ELSE 

pro = age*100/antique 
PRINT "et tu as d6j£";pro; % de ta vie 
derrfere toi I" 

PRINT 

beaucoup = eternite-age 
PRINT "je te souhaite encore 
";beaucoup;“ d'ann6es k vivre ";nom$;"!" 
ENDIF 
END 


REM un grand bonjour 
antique = 100 
eternite = 100 

INPUT "bonjour, comment t’appelles-tu 
?";nom$ 

PRINT nom$;",te portes-tu bien ? (o/n)"; 
WHILE reponse$< >"o" AND reponse$ 

< >"n" AND saisie <10 
INC saisie 
INPUT reponse$ 

WEND 

IF reponse$ = "o" 

PRINT "je m’en r6jouis" 

ELSE 

PRINT "j’espdre que ga va s'am6liorer!" 
ENDIF 
PRINT 

PRINT "quel &ge as-tu done ?"; 

REPEAT 
INC saisie 
INPUT age 

UNTIL age > 0 AND age < 100 OR 
saisie = 10 

IF age > 2 AND age < 20 
PRINT "done tu sais d6j& marcher" 
ELSE 

IF age > = 20 AND saisie < = 5 
PRINT "done tu es un grand" 

ENDIF 
IF saisie >5 
PRINT "plaisantin !" 

ELSE 

pro = age*100/antique 
PRINT "et tu as d6j4";pro;"% de ta vie 
derri&re toi I" 

PRINT 

beaucoup = eternite-age 
PRINT "je te souhaite encore 
";beaucoup;" d'ann6es k vivre, ";nom$;"!" 

ENDIF 

END 
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Les repetitions 


Tout utilisateur de ce programme a dix fois la possibilitd de saisir une donnee 
exploitable par l’ordinateur, apres quoi on lui communique une appr6ciation 
sur son degr6 de maturity. 

Vous n’etes pas encore a la fin des possibilites offertes par le GFA Basic en 
mati&re de structures de boucles : si pour une raison quelconque vous voulez 
placer dans la boucle elle-meme le test de bonne ex6cution de la condition a 
remplir, le GFA Basic vous en offre la possibilit6, tant dans la version 2.0 que 
3.0. Ceci vous permet de sortir d’une boucle quand vous voulez: 

Version 3.0 Version 2.0 


REM Loto GFAau choix 


REM Loto GFA au choix 

RANDOMIZE 


PRINT "premier nombre 

PRINT "premier nombre 


DO 

DO 


loto = RANDOM(49) +1 

loto = RANDOM(49) +1 


PRINT loto 

PRINT loto’ 


INPUT "assez ? (o/n)";reponse$ 

INPUT" assez ? (o/n)";reponse$ 


EXIT IF reponse$ = "o" 

EXIT IF reponse$ = "o" 


PRINT "nombre suivant;" 

PRINT "nombre suivant 


LOOP 

LOOP 


END 

END 




Si vous n’en avez pas assez, vous n’avez qu’a appuyer a chaque fois sur 
< Return > ou < Enter >. Si vous repondez par "o", la boucle s’interrompt k 
cet endroit. II est important que EXIT IF ne soit pas encadre immediatement 
par IF...ENDIF. 

5.4. Resume 


Comme vous le voyez, le GFA Basic ne vous contraint pas a eviter les GOTO, 
mais offre de nombreuses alternatives. Tout d6pend de vous : vous vous en 
tirerez sans doute avec les GOTO, mais vous arriverez plus certainement au 
but en les evitant dans vos programmes. Pour ma part, je pr6f£re les disques 
sans rayure. 

Vous connaissez maintenant une foule destructions de repetition: 

Les boucles avec des conditions k remplir: 


WHILE {condition} 
{instruction (s)} 
WEND 
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REPEAT 
{instruction (s)} 
UNTIL {condition} 


DO WHILE {condition} 
{instruction (s)} 
LOOP 


DO UNTIL {condition} 
{instruction} 

LOOP 


DO 

{instruction (s)} 

LOOP UNTIL {condition} 


DO 

{instruction (s)} 

LOOP WHILE {condition} 


Et vous vous souvenez que des boucles de forme 


DO 

{instruction (s)} 
LOOP 


sont des boucles sans fin, de meme que des boucles ayant des conditions, qui 
ne peuvent jamais etre remplies. Vous devez avoir remarqud que vous ne 
pouvez sortir de telles situations qu’Si Paide des trois touches 
< Alternate > < Shift > < Control >. 

Vous connaissez aussi les boucles de comptage : 


FOR {compteur} = {d6but} TO {fin} STEP {pas} 
{instructions} 

NEXT {compteur} 


FOR {compteur} = {d§but} TO {fin} 
{instructions} 

NEXT {compteur} 


FOR {compteur} = {d6but} DOWNTO {fin} 
{instructions} 

NEXT {compteur} 
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Les repetitions 


Vous savez que vous pouvez interromprc une boucle a nimporte quel endroit 
par EXIT IF. Vous counaissez la possibility par INC ei DEC de compter dans 
le sens de valours croissantes ou dderoissantes, et do simplifier les additions, 
soustractions, multiplications et divisions par ADD, SUB, MUL et DIV. 

Tout & fait inddemment, vous avez appris quelque chose sur futilisation des 
ordinatcurs dans les jeux de basard: RANDOMIZE vous per met (en GFA 3,0) 
de lancer le gdndrateur de noinbrcs aldaloires. RANDOM est la fonction qui 
vous fournit de fa^on aldaloire un nombre enticr compris entre 0 ct une valour 
determinde. 
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De la manipulation des donnees 


Chapitre 6 


• D.6 la manipulation des 




I maginez votre reaction si vous appreniez que depuis quelque temps on 
enregistre tout ce que vous dites et faites. Ou vous allez, ce que vous aimez 
etc. Et alors ? me repondrez-vous je n ’ai rien d cacher L Cela ne vous derangerait 
pas un petit peu de savoir que quelque part, on archive tout sur vous ? 

Voila ce que Fordinateur peut faire par excellence : saisir des donnees et les 
traiter. Malgre son importance, une discussion sur ^utilisation de donn6es 
archivees dans un ordinateur quelconque n J a pas sa place ici. Nous ne nous 
preoccupons que de ce que Fordinateur fait des donnees qui Falimentent, en 
sachant qu'il n’a aucune idee de ^importance qu’elles peuvent revetir pour 
nous. 

II ne faut cependant pas perdre de vue que ces donnees, insignifiantes pour 
l’ordinateur, pourraient avoir une grande importance pour nous si elles etaient 
mal utilisccs. Car ceci, aussi, est indiffdrent pour Fordinateur, qui ne fait que 
verifier si les donnees a traiter sont bien formatees ou si elles sont du type 
approprie. 


6.1. Variables et constantes 


J’y reviens toujours : reprenons notre petit programme de conversation avec 
lequel je vous ai d6j& tortur6 plusieurs fois. II y a encore des choses k en dire : 


Le savoir de base en GFA Basic 


6-67 




Bien debater en GFA Basic 


6-68 


Version 3,0 


Version 2.0 


REM rebonjour 

PRINT "bonjour, comment t'appelles-tu ?"; 
INPUT nom$ 

PRINT nom$;",comment vas-tu ?"; 
REPEAT 
INPUT reponse$ 

IF reponse$ = "bien" 

PRINT "je m'en rGjouis" 

ELSE IF reponse$ = l, mal" 

PRINT "j’en suis bien pein6 1" 

ELSE 

PRINT "te portes-tu bien ou mal ?" 
ENDIF 

UNTIL reponse$ = "bien" OR reponse$ = 
"mal" 

END 


REM rebonjour 

PRINT "bonjour, comment t'appeles-tu?"; 
INPUT nom$ 

PRINT nom$;", comment vas-tu? 11 ; 
REPEAT 
INPUT reponse$ 

IF reponse$ = "bien" 

PRINT "je m'en r6jouis" 

ELSE 

IF reponse$ = "mal" 

PRINT "j'en suis pein6 !" 

ELSE 

PRINT "te portes-tu bien ou mal ?" 
ENDIF 
ENDIF 

UNTIL reponse$ = "bien" or reponse$ = 
"mal" 

END 


II y a deux variables dans cet exemple, nom$ et reponse$. Mais ce ne sont pas 
A les seules donn6es que Pordinateur ait a traiter, voyez par vous meme: 


PRINT "bonjour, comment t’appelles-tu ?"; 
PRINT ".comment vas-tu ?" 

PRINT "je m’en r6jouis" 

PRINT "j'en suis bien pein6 !" 

PRINT "te portes-tu bien ou mal ?" 


Chacune de ces instructions d’affichage PRINT est suivie par une chaine de 
caracteres encadr6e par des guillemets : 


"bonjour, comment t’appelles-tu ?"; 
".comment vas-tu ?" 

"je m'en r6jouis" 

"j’en suis bien pein6 I" 

"te portes-tu bien ou mal ?" 


Vous avez vous-meme determin6 ces donndes lors de P6criture du programme 
et les avez saisies dans le programme. Ce qui signifie qu’elles ne pourront plus 
etre modifies aprfis Tavoir lancd. Si vous d6sirez que rordinateur affiche 
d’autres tcxtes, vous devrez modifier en consdquence les endroits voulus dans 
le programme puis le refaire traduire par Pinterpr6teur du GFA Basic. 

A Pinverse des variables, qui peuvent changer a Pint6rieur d’un programme, on 
parle ici de constantes, car ces donnees sont fixees pour tout le deroulement 
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du programme. II en va de meme pour les nombres, pour lesquels je vais encore 
rappeler un exemple d6ja vu : 


Version 3.0 


Version 2.0 


REM Loto GFA (1) 


REM Loto GFA 

RANDOMIZE 


’RANDOM 

FOR compteur = 1 TO 6 


FOR compteur = 1 TO 6 

loto = RANDOM(49) +1 


loto = RANDOM (49)+ 1 

PRINT loto’ 


PRINT loto’ 

NEXT compteur 


NEXT compteur 

END 


END 


Les constantes sont ici les chiffres 1,6,49 et encore une fois 1. Varions un peu: 


Version 3.0 


Version 2.0 


REM Loto GFA (2) 


REM Loto GFA (2) 

quantite = 6 


quantite = 6 

maximum = 49 


maximum = 49 

RANDOMIZE 


■RANDOM 

FOR compteur = 1 TO quantite 


FOR compteur = 1 TO quantite 

loto = RANDOM(maximum) +1 


loto = RANDOM (maximum) +1 

PRINT loto’ 


PRINT loto’ 

NEXT compteur 


NEXT compteur 

END 


END 


Maintenant les valeurs limites quantile et maximum sont dcvenues des 
variables. Des valeurs de ce type apparaisscnt souvent, surtout dans de grands 
programmes qui seront plus clairs si dies sont fix^cs d£s le ddbut sous des noms 
significatifs. Ccci vous permet de savoir n’importc ott dans votre programme 
quelle signification revet le nombre que vous vencz d’uliliser. Cette m6thode a 
un autre avanlage ; si vous devez modifier une valcur -par exemple ici la 
quantity de nombres que vous voulez obtenir pour jouer au loto ou leur valeur 
maximum- vous n’avez qu’unc modification & faire qui sera valable dans tout le 
programme. 

11 y a cepcndant un inconvenient, qui peut apparaitre dans les programmes 
comportant bcaucoup de noms de variables: s’il vous arrivait d’employer dans 
une instruction le mot quantile a un endroit quelconquc de votre programme, 
cette variable prendrait une valcur non d£sir£e. Pour vous 6pargner cetLc 
d^convenue, vous devriez marquer d’unc fagon ou d’une autre le nom des 
variables dont la valeur doit resier constants durant tout le programme, par 
exemple en ajoutant toujours a la fin du nom un point (.) ou un tiret bas (_): 
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REM Loto GFA (2) 
quantite_=6 
max = 49 

FOR compteur= 1 TO quantite 
loto = RANDOM (maxj +1 
PRINT loto’ 

NEXT compteur 
END 


6.2. Les types de donnees 


quantite ou maximum , nom$ ou reponse$ - quels sont les types de donnees qui 
existent ? Fondamentalement, le GFA Basic differencie entre les chiffres et les 
lettres. II identifie une variable terminee par "$" comme une chame de 
caracteres appelee String . Nous connaissons de plus la marque "!" pour une 
variable booleenne ne pouvant prendre que deux valeurs (vrai ou faux). Faute 
de quoi l’interpreteur GFA suppose qu’il s’agit d’un nombre. Cette 
differenciation est importante, car on peut compter avec des nombres : 


REM String ou nombres 
LET x = 1 
LET y = x+x 
LET x$ = 'T' 

LET y$ = x$+x$ 

PRINT "y =";y 
PRINT "y$ = ";y$ 

END 


Vous vous souvenez encore assez de votre cours de mathematiques pour savoir 
qu’on ne peut pas faire de calcul avec des chaines de caracteres, les Strings ne 
sont qu’enchames Pun apres l’autre par le signe" + " (concatenation). * 

Voila la signification de LET : il servait a Porigine a distinguer une instruction 
(necessitant le signe " = ") d’une equivalence marquee par " = D’autres 
langages de programmation utilisent en effet des signes differents pour 
chacune de ces operations. Nous n’avons pas eu ce probleme en ecrivant notre 
exemple de calcul d’une valeur inverse, car on peut se passer de ce signe. Mais 
il vous arrivera peut-etre de vouloir utiliser un des mots du vocabulaire du GFA 
Basic comme nom d’une variable : LET vous permet alors d’eviter toute 
confusion. Essayez: 


LET print = 99 
PRINT print 
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dans les versions anlericurcs du Basic, tons ics nombres n’etaient pas du 
mSme type : on distinguait entre les nombres cnticrs ct les nombres d virgule , 
qne Ton nommait tres &16gamment nombres k virgule floltante. Ces nombres 
constituent le domaine des math&naliques usuelles. 

Malheureusement l’ordinateur ne travaille pas selon le syst£me decimal, il doit 
done d*abord traduire tous les nombres que nous ini soumettons vers son 
propre syst&me de calcul binairc. Hi avant Paffichage sur P6cran ou 
Pimprimanle, il doit reconverlir les nombres Merits dans son format en nombres 
ddcimaux. En transformant ainsi des nombres k virgule fiottante, on pouvait 
voir se prod u ire des erreurs dans les valours arrondies car ces nombres nc 
peuvent etre transform^ avec Inexactitude vouluc. Prenons par exemplc le 
nombre engendrd par la division dc 10 par 3: 


3.333...P 


Combicn dc cliiffrcs doit on laisser derriere la virgule ? Meme le plus puissant 
des ordinal curs ne peut aller jusqu’a Pinfmi, il faut done arrondir la valeur. 
Uordinatcur prSfere de loin les nombres entiers, qui restent exacts et prennent 
peu de place dans sa memoire. 

Pour que Pinterpreteur GFA puisse distinguer entre les sortes de nombres, il 
faut avoir recours a d’autres signes distinctifs en plus de "$" etExaminez la 
table ci-dessous: 

Signe Type de donnees et de nombres 

! Valeur booleenne (TRUE ou FALSE)( = BOOLEAN-l octet) 
ne peut reconnaitre que les valeurs 0 (FALSE) ou (-1) (TRUE) 

| Nombre entier court ( = BYTE-1 octet) de 0 a 255 (seulement 
version 3.0) 

& Nombre entier simple ( = WORD Mot = 2 octets) de -32768 
jusque +32767 (version 3.0 seulement) 

% Nombre entier long ( = INTEGER-4 octets) de -2147483648 a 
+ 2147483647 

# Nombre a virgule flottante (= FLOAT-8 octets) d’environ 10-308 

a environ 10 + 308 (positif ou negatif, avec une exactitude jusqu’a 
13 positions) 
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Ce qui fait que x! x | x& x% x# et x$ repr6sentent six variables differentes, mais 
par contre x et x# designent la meme chose car le GFA Basic, en Pabsence 
d’autre specification, admet d’emblde les nombres non-entiers. 

Lenombre d’octets vous indiquela place prise par une variable de chaque type 
dans la memoire de travail dc votre ordinateur. Si par exemple vous disposez 
d’un Mega ST, il possddc 2.000*000 (deux millions) dc places dans scs 
memoires, mais une bonne partie est deja occup6e par le programme faisant 
tourner le GFA Basic et aussi par vos programmes. 

Les chaines dc caracteres (strings) ont un statut particular, car leur longueur 
n’est pas ddterminde, vu qu’une chamc peut se composer de z6ro, un, plusieurs 
ou beaucoup dc caracteres. La plupart dcs interprdteurs Basic ne permettent 
qu’une longueur de 255 caractdres. Le GFA Basic par contre accepte des 
chaines jusqu’a 32767 caracteres ; un 6cran peut afficher 25 * 80 = 2000 
caracteres. 

Voulez-vous connaitre les caracteres dont dispose votre Atari ? Les vdtdrans 
du Basic savent que les caracteres possedes par Pordinateur sont memorises 
sous des numeros de code compris entre 0 et 255. Vous pouvez done afficher 
Pensemble des caracteres possedds par votre Atari ST par le programme 
suivant: 


REM Ensemble des caracteres 
FOR z = 0 TO 255 
PRINT CHR$(z)' 

NEXT z 
END 


FOR et NEXT encadrent la commande PRINT. Ceci fait que la variable "z" va 
prendre successivement toutes les valeurs entre 0 et 255 et provoquer 
l’affichage des caracteres correspondants (CHR$) tires de ce qu’on appelle la 
table ASCII des caracteres de VAtari. 

Cela ne semble pas tout, car il y a manifestement des caractdres invisibles ou 
sonores. En tout cas vous savez maintenant comment afficher sur Pecran des 
caracteres inaccessibles au clavier. Nous nous en resservirons plus loin. 

De la meme fagon que caractere$= CHR$(nombre) vous permet d’afficher le 
caractere qui se cache derriere un numero de code compris entre 0 et 255, vous 
pouvez savoir inversement par nombre—ASC(caractere$) le code decimal 
ASCII d’un caractere. 

Il est ndeessaire de temps en temps de transformer des donnees d’un type en 
donnees d ? un autre type. Par exemple dans notre programme ci-dessus, vous 
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aV ez vu la transformation d’un nombrc entier compris cntre 0 el 255 en un 
caractere unique. Pour transformer ties chiffres en (chainc tie) caracteres ct 
inversement, vous utiliserez respectivement chaine$=STR$(nornbre) et 
nombrc =VAL(chaine$). Le deuxieme cas presuppose que la cliainc se 
compose de nombres, sinon vous obtiendrez pour nombre un 0. 

Et Tnalnfp.nant vous devez encore savoir ce qui se passe ci-apres 

Version 3.0 Version 2.0 


INT vous permet d’arrondir un nombre a un nombrc entier, TRUNC et FIX 
effacent les chiffres places apres la virgule. Ccci n’a pas le meme effet que INT, 
et vous le constatez si vous introduisez des nombres nfigatifs. FRAG fourml la 
partie d’un nombre situtse au-delS de la virgule, et vous obtiendrez des chiffres 
arrondis a rentier le plus proche, grace & ROUND. Vous pourrez meme 
arrondir en determinant vous meme le nombre de chiffres apres la virgule grace 
a "ROUND(nombre,positions). 

La fonction ROUND n’existe pas dans la version 2.0. Void comment le 
remplacer dans la version 2.0 : 


REM arrondir k rentier le plus proche 
INPUT "nombre dEcimal": ",N 
D = N-INT(N) 

IF D>0.5 
N = INT(N) + 1 
PRINT N 
ELSE 
N = INT (N) 

PRINT N 


REM Arrondir 

INPUT “nombre decimal 

",nombre 

PRINT "arrondi k 

";INT(nombre) 

PRINT “avant la virgule 

";TRUNC 

PRINT "Equivalent k 

(nombre) 

";FIX(nombre) 

PRINT "aprEs la virgule 

";FRAC 

PRINT "arrondi juste k 

(nombre) 

";ROUND 

END 

(nombre) 


REM Arrondir 
INPUT "nombre decimal 
PRINT "arrondi k 
PRINT "avant la virgule 

PRINT "Equivalent k 
PRINT "apres la virgule 

PRINT "arrondi juste k 
D = N-INT(N) 

IF D>0.5 
N = 1NT(N) 1 
PRINT N 
ELSE 
N = INT(N) 

PRINT N 
ENDIF 
END 


".nombre 

";INT(nombre) 

";TRUNC 

(nombre) 

";FIX(nombre) 

";FRAC 

(nombre) 
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ENDIF 

END 


Cet exemple suppose que la valeur 3.5 est arrondie a 3. 


6.3. Definition et debuts des valeurs 


A l’inverse des langages comme C, Pascal ou Modula, les variables en Basic 
n’ont pas besoin d’etre d£finies avant d’etre cffectivement utilises par le 
programme. II suffit pour ccla d’ajouter h Icurs denominations une marque 
indiquant leur nature a rinterpr&cur ou au compilateur* En Basic, les variables 
ont une valeur par defaut en l’absence de toute autre precision, de zero (0) lors 
d’une utilisation comme nombre et sinon de chame vide ("") en tant que string. 

Ceci rend la programmation en Basic un peu plus facile, car on n’est pas oblige 
de verifier si les ingredients sont tous prets. 

Lors de la programmation, on peut faire comme le chirurgien en salle 
d’operation : il n’a qu’a dire scalpel pour le recevoir immediatement dans la 
main. 

Si vous le desirez, vous pourriez proceder a quelques definitions. En effet, dans 
la version 3.0, vous pouvez convenir avec 


DEFBIT segment 
DEFBYT segment 
DEFWRD segment 
DEFINT segment 
DEFFLT segment 
DEFSTR segment 


que toutes les variables dont les noms apparaissent sous forme d’initiales dans 
un segment Uonnd doivent ensuile devenir unc valeur booI£cnnc (BIT), entter 
sur 1 oclet (BYT), un entiersur 2 octets (WRD), sur4 octets (IMT), un nombre 
& virgule flottante (FLT) ou une chame de caractferes (STR). Ce qui vous 
permet pour les noms de variables fixes dc vous passer des marques designant 
leur type (! | &%#$). Par exemple : 

DEFFLT "x-z" les noms de variables commengant par x, y ou z sont 
consideres comme des variables a virgule flottante. 


6-74 


Bien debuter en GFA Basic 










6-75 


De la manipulation des donnees 


DEFSTR "s" les noms de variables commengant par un s sont d6clar6s 
comme chaines de caractferes. 

Je tenais k vous prdciser cette possibilitd, mais je vous deconseille d’en faire 
usage: seul le marquage par les suffixes appropries (! | & % # $) caract6rise 
de fagon claire ct caldgorique une variable dans tout le programme. 

On ne peut pas s’en tirer sans definition lorsqu’on utilise bcaucoup de place 
dans les m6moires, ce qui est le cas lorsque l’on vcut memo riser des donnees 
rtans un tableau (anglais: array). Prenons par cxemple notre programme loto, 
qui ne nous satisfaisait pas puisqu’il pouvail fournir plusieurs fois de suite le 
meme nombre. 

Pour eviter ccla, il faut modifier le programme do telle sorts que les nombres 
d6]k sortis soierU compares avec le nouveau nombre. Si ce dernier est d6jasorti, 
il faut de nouveau proc^der & un tirage. Au fur et a mesure qu’ils sortent, les 
nombres doivent done etre archives dans im "tableau-loto" qu’il faut d’abord 
dimensionner par: 


quantite_=6 

DIM loto(quantite_)__ 

Le jeu parcourt trois boucles : la boucle extdrieurc (FOR...NEXT) est 
parcourue exactcment autant de fois que la valeur de quantite_. La boucle 
suivante (REPEAT...UNTIL) recommence un tirage jusqu’a obtention d-un 
nouveau nombre. On utilise pour controlcr cela une variable booUSennc. I-a 
boucle interne sert au processus de confrontation: 


Version 3.0 Version 2.0 


REM Loto GFA avec contrfile 


REM Loto GFA avec contrfile 

quantite =6 


quantite_=6 

max =49 


max_=49 

DIM loto (quantite J 


DIM loto (quantite J 

RANDOMIZE 


’RANDOM 

FOR compteur = 1 TO quantite 


FOR compteur = 1 TO quantite_ 

REPEAT 


REPEAT 

ok!=TRUE 


ok! = TRUE 

tirage = RAN DOM (maxJ +1 


tirage = RADOM(maxJ +1 

FOR test = 1 TO compteur 


FOR test = 1 TO compteur 

IF tirage = loto (test) 


IF tirage = loto (test) 

ok ! = FALSE 


okl = FALSE 

ENDIF 


ENDIF 

NEXT test 


NEXT test 

UNTIL ok I 


UNTIL ok! 

loto(compteur)=tirage 


loto(compteur)=tirage 

PRINT loto(compteur)’ 


PRINT loto(compteur)’ 

NEXT compteur 


NEXT compteur 

END 


END 
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En tant que debutant, vous aurez sans aucun doute quelque difficulte a 
comprendre la logique de ce programme. Consolez vous en sachant que mon 
seul objectif etait de vous faire connaitre les definitions et Putilisation de 
variables memorisees dans un tableau. 

^instruction DIM determine les dimensions d’un tableau 

Apres la definition obtenue par DIM, vous avez a votre disposition un certain 
nombre de variables. Chaque variable pout etre appel6e et utiiis^c par son nom 
et un num6ro place entre parent h^se (indice). Dans la plupart des versions du 
Basic, le premier indice du tableau vaut 0 ou 1. Vous determine/, cela vous 
meme en utilisant OPTION BASE 0 ou OPTION BASE 1. 

Pour les tableaux, il est souvent recommande de proc£der k unc initialisation, 
et de remplir ensuite le tableau. Par exempte apres avoir saisi DIMjour$(7) il 
est recommande de ne pas laisser vides {"") les jours mais de les nommer par 
leur nom : on pourrait les enumerer un par un* mais je vous recommande la 
solution suivante: 


REM semaine 
DIM jour$(7) 

OPTION BASE 1 
FOR t= 1 TO 7 
READ jour$(t) 

PRINT jour$(t) 

NEXT t 
END 

DATA lundi,mardi,mercredi jeudi 
DATA vendredi, samedi, dimanche 


Faites bien attention a ce que le nombre des donnees k lire sous READ soit 
bien indique, faute de quoi l’interpreteur GFA vous renverrait un avis d’erreur. 

Si tous les elements d’un tableau ont la meme valeur, vous devez utiliser 
ARRAYFILL <nom du tableau()>,<valeur numerique> . Un tableau de 
caractferes ne peut malheureusement pas etre complete de cette fa§on. 

Vous pouvez cffacer compl&tcment un tableau do n’importe quel type par 
ERASE < nom du tableau() > . La place ainsi liberce dans la m6moire peut etre 
oceup£e de nouveau pour d’autres tableaux ou d’autres variables. Pour 
ramener toutes les valeurs a zdro ou vider un tableau, vous utilisez CLEAR. 
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6.4. Les operateurs 


Nous avons fait un pcu de mathcmatiques lorsque nous voulions obtenir la 
valeur inverse d’un nombre. Vous connaissez je pease les operations courantes 
" + -/”. Vous allezfaire connaissance en plus aveclcs opdrateurs D1V, MOD, 
»-" et le dernier venu de la version 3.0 "\" Le mieux est de vous rendre compte 
par vous meme de 1’effet de ccs operateurs & l’aide de ce petit programme : 


REM operateurs mathcmatiques 

PRINT "entrez deux nombres 

INPUT "premier nombre : ",nombre1 

INPUT "deuxiCme nombre : ",nombre2 

resultat = nombre 1 +nombre2 

PRINT nombre 1 ; M + H ;nombre2;" = M ;r6sultat 

resultat = nombre1-nombre2 

PRINT nombre1;"-";nombre2;" = ";r6sultat 

resultat=nombrel *nombre2 

PRINT nombre1;"*";nombre2;" = ";r6sultat 

resultat=nombre1/nombre2 

PRINT nombrel;T;nombre2; M = ";r§sultat 

resultat=nombrel \nombre2 

PRINT nombrel; M V l ;nombre2;" = ";r6sultat 

resultat = nombrel MODnombre2 

PRINT nombrel ; M V;nombre2; M reste";rCsultat 

resultat = nombrel DlVnombre2 

PRINT nombrel ; ,, V;nombre2; M = H ;r6sultat 

END 


Pour 6crire ce programme, servez-vous de la facilite offerte par l’editeur GFA 
: saisissez une seule fois 

___ 

resultat = nombrel +nombre2 

PRINT nombrel ;"+";nombre2;" = ";resultat_ 


Amenez ensuite le curseur au d6but de ce bloc et posez une marque par BlkSta 
ou < Shift > < F5 >. Amenez le curseur a la fin du bloc et marquez soit par 
BlkEnd soit par < F5 > - Voyez si le bloc est marqu6, sinon recommencez le 
processus. Amenez main tenant le curseur la oil vous voulez copier le bloc. Par 
< F4 > ou block vous faites apparaftre une nouvelle ligne de menu: 


1 

copy 

move 

write 

Hist 

start 

- ~~i 

end 

~ Del 

hide 


Copy vous permel dc recopier autant de fois que vous 1c d^sirez, block ct hide 
suppriment le marquage. Si vous avez fait trop de copies, vous pouvez en 
gommer k I’aidc de block et '"Delete. Si vous voulez dSplacer un bloc, utilisez 
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block et move . Toutes les options de ce menu peuvent etre appelees par leur 
initiate, sauf Delete qui exige -pour des raisons de securite- d’actionner en plus 
la touche < Control >. 

II vous suffit alors de modifier quelques signes ct vous vous Epargnez bcaucoup 
de travail d’Ecriture. Vous procEdez au mieux k ccs modifications en cliquant 
Insert ou <F8> dans le menu principal ee qui vous amene k Ovcrwr 
(surimprimer), Faitcs ensuile tourncr 1c programme plusicurs fois en essayant 
des nombres diffErenls. 

Vous constatez que les opEraleurs D1V ei MOD vous fournisscnt toujours 
des resultats cn nombres cutlers. D1V fournit la par tie entiere du rEsuItat de la 
division (division entiere) ct MOD teresle de la division (calcul modulo). Vous 
remarquez que les opEraleurs DIV et 11 V sont equivalents. Si vous choisissez 
pour nombrel et nombre2 des nombres non-entiers, ccs opEraleurs les 
arrondissent en nombres entiers. Le dernier opEratcur" ^ u est propre au Basic; 
il vous permet d’oblenir "nombrel k la puissance nombre2 ir . 

Jten profile ici pour vous presenter les opEratcurs de comparaison = t < t > , 
<>,<=,> = donl vous connaissez sans doute la signification. Je complete 
seulement cctle Enumeration par un opEratcur propre au GFA Basic (v3.9) : 
" — = 11 (deux fois le signe Egal) qui vous permet de comparer par approximation 
deux valours, Get opEratcur est surtout utile iors dc la comparaison de nombres 
arrondis, et il no pent cn aucun cas etre utilisE pour des cha fries de caracteres. 

II me faut encore signaler les opErateurs logiqucs AND (et), OR (ou) et XOR 
(soil...soit) ainsi que NOT. Si vous avez dej& utilisE un autre Basic, vous les 
connaissez, si vous etes un dEbutanl vous les avez dEj& rencontres dans nos 
instructions IF el vous les rencontrcrcz encore tout au long de cet ouvrage. 


6.5 Resume 


Je vous ai cxpliquE bien des choses sur la manipulation des donnees, les types 
de donnEes, les opEra Lions et les dEfinitions. C’etait peut-etre un peu rapide 
pour les dEbutanis. 

Le resumE qui suit devrait leur fournir un apergu global. 

Vous savez que !a valeur des variables peut etre modifiee et que la valeur des 
constantes est fixe. Les signes suivants determinent le type des donnees et sont 
accrochEs k la fin des noms des variables : 
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& 

% 

# 

$ 


BIT Valeur booleenne (1 octet) 0 (FALSE) ou 1 (TRUE) 
BYT Nombre entier "court" (1 octet) de 0 a 255 (version 3.0) 

WRD Nombre entier simple (2 octets) entre +/- 32700 

(version 3.0) 

INT Nombre entier "long" (4 octets) entre + /- 2 Milliards 
FLT Nombre a virgule flottante (8 octets) 

STR Chame de caracteres (string) entre 0 et env. 32700 
signes 


Si rien ne figure a la fin du nom d’une variable, la valeur par defaut est le #. 


Vous savez que dans la version 3.0 vous pouvez definir de fagon plus rapide et 
plus abregee le type des variables selon leurs denominations: 


DEFBIT segment 
DEFBYT segment 
DEFWRD segment 
DEFINT segment 
DEFFLT segment 
DEFSTR segment 


Vous avez vu quc votre ST dispose de 256 caracteres. Chacun de ces caracteres 
possfede un code numdrique entre 0 et 255 (code ddcimal) : Vous utilisez 
CHRS(code) ciASC(caractere) pour savoir quel caractere possede quel code 
numerique et inversement. Cf annexe C. 

La fonction CHR$(x): retourne le caractere dont le code decimal ASCII est x 

La fonction ASC(x$) : retourne le code decimal ASCII du premier caractere 
de la chaine x$ 

De plus STR$(nombre) et VAL(chaine) vous permettent de transformer des 
nombres en chaines de caracteres et inversement. Vous pouvez arrondir des 
nombres grace k INT(nombre), TRUNC(nombre), FlX(nombre) ou 
ROUND (nombre) . Et si vous avezbesoin de la partie decimale, vous l’obtenez 
par FRA C(nombre). 

Vous savez que vous devez definir un tableau par DIM nom du tableau(indice) 
et que vous determinez par OPTION BASE 1 ou 0 " si Pindice commence a 1 
ou 0. Vous savez qu’on ne tient pas compte de valeurs de depart egales a 0 ou 
de chaines vides 

Vous pouvez aussi initialiser d’autres valeurs de depart grace a READ ou 
DATA. S’il s’agit d’un tableau numerique dans lequel tous les elements ont la 
meme valeur, vous avez recours a ARRAYFILL. CLEAR ramene toutes les 
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variables a z6ro ou et efface completement le tableau. Si vous ne voulez 
effacer que certains tableaux, vous utilisez ERASE. 

Vous connaissez les operateurs standard suivants : 


pour les nombres 

: + -*/\DIVMOD 

pour les chatnes 

: + (concatenation) 


Vous pouvez mais ne devez pas forcdment faire pr£c6der de LET une 
instruction commen$ant par " = Vous connaissez les operateurs de 
comparaison = ,<,>,<>,<=,> = , les operateurs logiques AND et OR 
ou XOR et la negation par NOT. 

Dans F6diteur GFA vous connaissez les operations de marquage suivantes : 


BlkSta 

< Shift > <F5> 

pour marquer le debut d'un bloc 

BlkEnd 

<F5> 

pour marquer la fin d’un bloc 


Vous avez acces au menu de traitement des blocs par Block ou < F4 > qui vous 
offre les options 


Move <M> d6placer 

Copy <C> copier 

Delete < Control > < D > effacer 

Hide <H> 6ter les marques. 
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Chapitre 7 



V ous connaissez le jeu de Lego ? Vous vous souvenez certainement des 
constructions les plus folles que vous pouviez elaborer grace aux briques 
multicolores. Et lorsque cela ne vous plaisait plus, vous pouviez les demonter 
facilement et les reutiliser pour une autre construction. 

Vous avez sans doute joue avec de la pate a modeler. Vous pouviez \k aussi de 
tout coeur produire des formes sans aucune limitation, ce qui engendrait les 
plus folles sculptures. Mais a la fin, tout etait si bien malax6 que vous ne pouviez 
plus guere separer les pates des differentes couleurs. 

C’est precisement 1’aspect pate a modeler du Basic qui rejouit tant d’amateurs. 
Ce qui en sort ne peut le plus souvent plus etre demele. Si par contre on 
construit un programme des le debut brique par brique, le resultat reste 
comprehensible. On peut ensuite facilement le transformer et l’ameliorer, on 
peut r6cuperer certaines parties et meme les intervertir. Ce style de 
construction modulaire s’est impose dans de nombreux domaines surtout 
techniques. 


7.1. Les paragraphes 


Dans ce livre, je n’utilise qu’une partie du vocabulaire de la langue fran^aise. 
Les mots s’enchainent en phrases, lesquelles sont groupees en paragraphes. 
Un groupe de paragraphes forme un chapitre et plusieurs chapitres peuvent 
aussi former un tout. Naturellement, j’aurais pu aussi 6crire tout le texte d’un 
seul jet, car tout se tient n’est-ce pas ? et j’6conomiserais ainsi de la place. 
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Vous devriez £ Favenir fairc la meme chose pour Tdcriture de vos programmes, 
en divisant I’ensemble du programme en sous-programmes, lesquels seraient 
divises en paragraphes etc* Reprenons par cxemple notre programme 
Bonjour : 


REM Bonjour (1) 

INPUT “bonjour, comment t’appelles-tu ?";nom$ 
PRINT nom$;" 1 te portes-tu bien ?(o/n) M ; 

REPEAT 
INPUT reponse$ 

UNTIL reponse$ = "o" OR reponse$ = "n" 

IF reponse$ = "o" 

PRINT "je m’en rSjouis" 

ELSE 

PRINT "j’en suis bien pein6 I" 

ENDIF 

END 


Nous pouvons subdiviser ce programme de la fagon suivante: 


salutation : 

INPUT "bonjour, comment t’appelles-tu ?";nom$ 


question : 

PRINT nom$;",te portes-tu bien ?(o/n) M ; 
REPEAT 
INPUT reponse$ 

UNTIL reponse$ = "o" OR reponse$ = "n" 


exploitation : 

IF reponse$ = "o" 

PRINT "je m’en r6jouis" 

ELSE 

PRINT "j'en suis bien pein6 !" 
ENDIF 


Ce qui fait qu’il ne resterait que la charpente suivante : 


REM bonjour (2) 
salutation 
question 
exploitation 

END 

* 

’suivent les paragraphes dans le detail 
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J’entends d6ja votre question: pourquoi une telle depense d’energie alors que 
cela n’ameliore en rien le deroulement du programme ? 

Ce a quoi je vous repondrai: pourquoi croyez-vous que je me sois donne la peine 
de trouver toutes les teles de chapitres et deparagraphes de ce livre ? Un rouleau 
imprime et un texte ccrit au kilometre n’auraient-ils pas suffit ? 

L’exemple que nous utilisons est d’ailleurs un tres petit programme de 
salutation. Pour elaborer un vrai programme performant de conversation nous 
aurions besoin d’un programme beaucoup plus complet. Pensez un peu k toutes 
les reponses possibles a la question "comment vas-tu ?" et k toutes les questions 
qu’elles ameneraient! Ce serait si long qu’on pourrait sans doute remplir des 
centaines de page d’6cran en programmation ! 

Occupons-nous done de votre 6tat de sant6 : 


question : 

IF reponse$ = "o M 
' enchainement 

ELSE 

' precisions 

ENDIF 

END 


Nous pourrions encore rediviser ce paragraphe: 


enchainement: 

INPUT "tu vas vraiment bien ?(o/n)";reponse$ 

IF reponse$ = "o" 

PRINT "que pourrait-on bien ajouter k cela ?" 

ENDIF 
precisions: 

REPEAT 

PRINT "e'est plutdt psychique ou plutdt physique ?"; 
INPUT etat$ 

UNTIL etat$ = "physique" OR etat$ = "psychique" 


Ici aussi on pourrait continuer a subdiviser. Pour comparer, essayez de vous 
representer ce que vous feriez avec un programme ecrit d’un seul jet et 
comment vous pourriez y faire des additions ! 

Comme vous Pavez deja remarque, le decoupage ci-dessus empeche de faire 
tourner Pensemble du programme, car il n J y a encore aucune liaison entre le 
programme principal et ses sous-programmes, sauf si vous avez laisse tomber 
END. Nous pourrions restaurer cette liaison avec GOTO : 
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REM Bonjour (3) 

GOTO salutation 
GOTO question 
GOTO exploitation 
END 

salutation : 

INPUT "bonjour, comment t’appelles-tu ?";nom$ 

i 

question : 

PRINT nom$; M ,te portes-tu bien ?(o/n) M ; 

REPEAT 
INPUT reponse$ 

UNTIL reponse$ = "o" OR reponse$ = "n" 

exploitation : 

IF reponse$ = "o" 

PRINT "je m’en r6jouis" 

ELSE 

I PRINT "j'en suis bien pein6 !" 

ENDIF 


Vous avez essaye cette version ? Apparemment tout se deroule correctement. 
En realite, seule l’instruction "GOTO salutation" est exccutce. L’ordinateur n’a 
pas a executer les autres ordres de sauts vu que justement il les a saut6s ! 


7.2. Nouvelles instructions 


Tant qu’a dcrire des sauts, pourquoi loujours des GOTO par-ci, GOTO par 
1& ? Cela vous semhle peniblc ? Pour rcvenir par GOTO, vous devez poser de 
nombrcuscs marques, et c’est pcnible. Moi, je m’en passe car le GFA Basic 
vous offre la possibilitd de formuler les paragraphes ci-dessus comme une 
procedure: 

L’instruction PROCEDURE : indique le debut d’une procedure (sous 
programme). Dans le GFA Basic, nous n’utilisons pas de numeros de lignes. 
C’est pour cela que nous emploierons l’instruction PROCEDURE, pour 
rcpcrcr les sous-programmes. 


PROCEDURE salutation 

INPUT "bonjour, comment t'appelles-tu ?";nom$ 
RETURN 

PROCEDURE question 
PRINT nom$;",te portes-tu bien ?(o/n)"; 

REPEAT 
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INPUT reponse$ 

UNTIL reponse$ = "o" OR reponse$ = "n" 
RETURN 

PROCEDURE exploitation 
IF reponse$ = "o M 
PRINT "je m’en r6jouis" 

ELSE 

PRINT "j'en suis bien pein6 I" 

ENDIF 

RETURN 


Vous voyez que je commence par 1c mot PROCEDURE, el termine par 
RETURN, Les procedures salutation t question et exploitation peuvent etre 
appd6es comme les instructions ordinaires dti GFA Basic, Pour ceux qui out 
la version 2,0 du GFA Basic, lisez altentivement la suite ciu texte avant de taper 
le programme suivant: 


REM Bonjour (4) 

salutation 

question 

exploitation 

END 

PROCEDURE salutation 

INPUT "bonjour, comment t’appelles-tu ?";nom$ 
RETURN 

PROCEDURE question 
PRINT nom$;",te portes-tu bien ?(o/n)"; 

REPEAT 
INPUT reponse$ 

UNTIL reponse$ = "o" OR reponse$ = "n" 
RETURN 

i 

PROCEDURE exploitation 
IF reponse$ = "o" 

PRINT "je m’en r§jouis" 

ELSE 

PRINT "j’en suis bien pein6 !" 

ENDIF 

RETURN' 


Essayez de voir ce qui se passe lorsqu’on place la partie principale du 
programme tout a la fin, en utilisant les instructions de manipulation de blocs. 

La version 2.0 du GFA Basic n’offre pas la possibilite d’appeler les procedures 
en entrant simplement leur nom. Celui-ci doit etre precede d’un GOSUB ( = 
Goto subroutine) ou d’un arobas (@) plac6 juste avant le nom. Ceci est utile 
lorsqu’il faut distinguer optiquement un nom de procedure d’un nom de 
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variable. Dans la version 3.0, vous pouvez aussi faire usage de cette possibilite. 
Le debut de notre programme precedent serait done: 


REM Bonjour (4) 
GOSUB salutation 
GOSUB question 
GOSUB exploitation 
END 


Les definitions des procedures restent par ailleurs identiques. 


Exp6rimentons maintenant une petite procedure qui vous montrera d’autres 
possibilitds du GFA Basic. Ecrivez d’abord ce petit programme : 


Version 3.0 Version 2.0 


REM glissements 


REM glissements 

FOR ligne&= 1 TO 20 


FOR ligne% = 1 TO 20 

colonne&=3*ligne& 


colonne% = 3*ligne% 

PRINT AT(colorme&,ligns&);"glissement' 


PRINT AT (colonne%, ligne%); M 

next flgne& 


glissement" 

END 


NEXT ligne% 



END 


Dans la version 2,0 vous n 3 ufilisez pas la terminaison & pour les variables, vous 
la remplacez par %, Cel a prend certes plus de place, mais permet aux 
programmes dc tourner sans probleme, ceci etant valable pour tous vos 
programmes ultdrieurs. 

Vous conslatez qu’en ajoutant AT, on peut determiner la position a partir de 
laquclle faftichage commence sur l’ecran. Par contre, il n’existe pas encore de 
procedure similaire input at en GFA Basic : pourquoi ne pas Tecrire 
nous-memes ? 

Vous allez me demander ce que deviennent les valeurs placees apres une 
instruction PRINT AT. II faut bien que ces parametres arrivent dans la nouvelle 
procedure definie. 

II serait done possible d’attribuer des parametres a une procedure ? Voyez par 
vous-meme: 


PROCEDURE input_at(colonne&,ligne&,texte$) 
PRINT AT(colonne& p ligne&); 

INPUT "".texteS 
RETURN 
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Voyons si cette nouvelle instruction fonctionne bien : 


Version 3.0 


REM Test Input 

PRINT AT(30 I 10); ll comment t’appelles-tu ?' 
input_at(30,13,nom$) 

PRINT AT(30,16); M tu es donc: M ;nom$ 

END 

PROCEDURE input_at(colonne&,ligne&, 
texte$) 

PRINT AT(colonne&,ligne&); 

INPUT IIM ,texte$ 

RETURN 


Version 2.0 


REM Test Input 

PRINT AT (30,10);"comnnent t’appelles-tu? 1 
©INPUT AT (30,13,00*1$) 

!PRINT AT730/I6);"tu es donJ;nom$ 

END 

PROCEDURE input_at(colonne%,ligne%, 
texte$) 

PRINT AT(colonne%,ligne%) 

INPUT 11 ",texte$ 

RETURN 


L’ordinateur semble avoir oublie votre nom. Vous ne l’avez d’ailleurs peut etre 
pas bien vu, car la fenetre de fin de programme du GFA Basic a each 6 une 
partie de l’affichage. Vous eliminez ce probleme en ecrivant INPUT touche$ 
que vous pouvez declarer comme une procedure : 


PROCEDURE attendre 
INPUT "".touches 
RETURN 


Si vous faites tourner ce programme, vous allez constater que l’Atari a 
effectivement oublie votre nom. Vous proposez de changer la variable texte$ 
en nom$ pour que la variable ait partout le meme nom ? Essayons cette 
variante: 


Version 3.0 


REM Dehors et dedans 
LET nom$ = "personne !" 

PRINT AT(30 p 10);"comment t’appelles-tu T 
input_at(30,13,nom$) 

PRINT AT(30,17) :"tu es donc:";nom$ 
INPUT MII ,touche$ 

END 

PROCEDURE input_at(colonne&,ligne& 
texte$) 

PRINT AT(colonne&,ligne&); 

INPUT M ",nom$ 

PRINT AT(colonne&,ligne& + 1);"tu 
t'appelles donc:";nonri$ 

RETURN 


Version 2.0 


REM Dehors et dedans 
LET nom$ = "personne !" 

PRINT AT(30,10);"comment t'appelles-tu ?’ 
@INPUT_AT(30,13,nom$) 

PRINT AT(30,17) :"tu es donc: M ;nom$ 
INPUTtouche$ 

END 

PROCEDURE input_at(colonne%,ligne%, 
texte$) 

PRINT AT(colonne%,ligne%); 

INPUT IIM ,nom$ 

PRINT AT(colonne%,ligne% + 1);"tu 
t’appelles donc: N ,nom$ 

RETURN 
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7.3. Local ou global ? 


Ne soyez done pas vexd ! Je voulais juste vous montrer que nom$ n’a pas le 
meme sens selon qu’il est place k l’interieur ou k l’exterieur de la procedure. 
Vous pouvez maintenant raccourcir la proc6dure input at d’un parametre : 


Version 3.0 


REM Dehors et dedans 

PRINT AT(30,10);"comment t’appelles-tu T 

input_at(30,13) 

PRINT AT(30,17) : M tu es done: ";nom$ 
INPUT llM ,touche$ 

END 

1 

PROCEDURE input_at(colonne&,ligne&) 
PRINT AT(colonne&,ligne&); 

INPUT MI \nom$ 

RETURN 


Version 2.0 


REM Dehors et dedans 

PRINT AT(30,10);"comnnent t’appelles-tu ?' 

@input_at(30,13) 

PRINT AT(30,17) : M tu es done: M ;nom$ 
INPUTtouche$ 

END 

* 

PROCEDURE input_at(colonne%,ligne%) 
PRINT AT(colonne%,ligne%); 

INPUT " M ,nom$ 

RETURN 


Essayons maintenant de comprendre la modification de notre programme : 
Input_at a seulement deux parametres colonne& et ligne&. C’est ce qu’on 
appelle des variables locales. Elies n’ont un sens qu’au niveau de la procedure 
Input at. Leurs contenus ne peuvent pas etre transmises au reste du 
programme. Par contre nom$ est une variable du programme et non un 
parametre de Inputat. Cest pourquoi sa valeur est identique dans tout le 
programme. 

Si bien qu*on peut certes donner un nom a une procedure et changer ce nom 
dans la proeddure : plus rien n’en filtrera vers le monde extdrieur ! Tout sera 
de nouveau en ordre si on elimine les parametres non desires. 

Que se passerait-il s’il vous arrivait la meme chose dans une autre procedure ? 
II n’est pas toujours interessant de fixer une fois pour toutes un parametre 
quelconque. II devrait etre possible de reprendre les parametres avec des 
variations, la procedure reprenant une valeur et la transformant en une autre. 
Voyons cela de plus pres : 

Version 3.0 uniquement 


REM Dehors et dedans 

PRINT AT(30,10); M comrrient t’appelles-tu ?" 

input_at(30,13,nom$) 

PRINT AT(30,18) :"tu es done ";nom$ 
INPUT mi ,touche$ 

END 
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PROCEDURE input_at(colonne&,ligne&,VAR texte$) 
PRINT AT(colonne&,ligne&); 

INPUT "",texte$ 

RETURN 


Le parametre concern^ esl mainlenanl dc nouveau dans ie programme, mais 
cede fob il est d6fitil comine variable dc programme grace a VAR. II porle 
l’ancienne denomination texte$.hc mot VAR placd avant tcxteS indique que 
Lexte$ cst une variable globale. Son contemi doit etre transmis au reste du 
programme. II peut etre nccessaire en effel dc transformer Ic nom d’un 
parametre prdddHni en un autre nom. Car le fail de nc pas etre Umit6 a un seul 
nom peut conlribuer ft rendre une procedure plus facilemcnt, plus 
universe! lement utilisablc. Cette possibility n’cxistc malbcureuscmcnt que 
dans la version 3.0. Dans la version 2.0, vous devez essayer de contourncr ce 
probleme. 

A litre cPexcrcicc, cssayez d’utiliscr cette procedure input dc telle sorle que les 
let ties soient rcmplagables par des chiffres. Auriez-vous deja pensfi ft rendre 
possible la saisie dans une nieme procedure, de chiffres ou de lettres, scion vos 
besoins ? 

Attardons nous encore un peu sur ce local ou global: le GFA Basic vous offre 
la possibility dans les deux versions (2.0 et 3.0) delimiter ft certaines proc6durcs 
!c domaine dc validity dc variables ft I’aide de LOCAL: 


REM global ou local 
x = 1 

INPUT "entrez un chiffre :",y 

@doubler 

PRINT "global :";x*y 

j PROCEDURE doubler 
LOCAL x,y 
x = 2 
y = 2*y 

PRINT "local :";xV 

RETURN _ 

Pour que vous puissiez ruminer un peu plus, je vous offre encore ces deux 
variantes, avec des parametres. Notez que le deuxieme exemple fonctionne 
qu’avec la version3.0: 

REM global ou local (1) 
x = 1 

INPUT "entrez un chiffre :",y 
@doubler(X,Y) 

PRINT "dehors :";xV __ 
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PROCEDURE doubler(x.y) 
x = 2 
y = 2*y 

PRINT "dedans :";xy 
RETURN 

REM global ou local v.3.0 (2) 
x = 1 

INPUT "entrez un chiffre : M ,y 
doubler(x,y) 

PRINT "dehors :";x'y 

PROCEDURE doubler(VARx,y) 
x = 2 
y = 2*y 

PRINT "dedans :";x’y 
RETURN 


A quoi bon tout cela me direz-vous ? Pourquoi cette possibilite de definir 
localement ou globalement ? Une seule definition suffirait bien tout au long 
d’un programme! 

Si vous discutez un jour avec des programmeurs utilisant le langage C, Pascal 
ou Modula, ils vous diront que c’est un avantage de pouvoir limiter localement 
la definition et Putilisation des variables. L’ecriture de grands programmes -(ce 
qui est finalement votre objectif)- fait intervenir une foule de variables, qui 
devraient toutes porter un nom different, si elles devaient rester valables durant 
tout le programme. Le GFA Basic vous permet d’attribuer des noms tres longs 
aux variables (theoriquement 255 caracteres). 

Souvent cependant un seul nom court suffirait, de quelques caracteres, voire 
meme un seul. Pour les variables numeriques par exemple, on utilise souvent 
une lettre "i" ou "n" etc. II n’est pas a exclure que vous utilisiez, sans vous en 
rendre compte, le meme nom de variable plusieurs fois avec un contenu 
different. 

Souvent, une variable n’a d’utilite que dans une partie du programme, par 
exemple dans des boucles numeriques. II est alors souvent peu souhaitable que 
cette variable ait une existence dans l’ensemble du programme et y entrame le 
cas echeant des perturbations. Je pense que Pecriture de programmes longs 
devient tres difficile voire impossible si on n’utilise que des variables toujours 
globalement valables. 

Vous apprecierez au fil de votre experience cette possibilite de limiter le 
domaine de validite des variables. Le GFA Basic vous Poffre, mais sans vous y 
contraindre. Elle vous permettra d’employer dans plusieurs procedures une 
variable "n" ou Y sans que Pune ait de rapport avec Pautre. 
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7.4. Reutilisation des procedures 


Je voudrais vous signaler une deuxieme possibilite de positionner le curseur, 
offerte par le GFA Basic 3.0 : 


LOCATE ligne,colonne 


Faites bien attention qu’ici l’ordre est inverse : en premier vient la ligne, en 
deuxieme la colonne! Notre procedure input_at prend alors la forme suivante: 


PROCEDURE input_at(colonne&,ligne&,VAR texte$) 
LOCATE ligne&,colonne& 

INPUT "",texte$ 

RETURN 


Verifions maintenant si votre Atari a bien note cette nouvelle procedure, que 
ce soit avec PRINT AT ou LOCATE. II vous sera en effet souvent bien utile 
d’avoir a votre disposition un certain nombre de procedures predefinies pour 
vos programmes ulterieurs. Marquez pour cela, l’ensemble de la procedure 
depuis PROCEDURE jusqu’a RETURN dans P6diteur. Souvenez-vous : on 
utilise au debut BlkSTA ou < Shift > < F5 > et h la fin BlkEnd ou < F5 >. Le 
marquage doit etre visible. Vous repassez dans le menu de manipulation des 
blocs par < F4 > ou block. 

En cliquant sur Write ou en appuyant sur < W>, vous voyez s’affichcr une 
fenetre de dialogue qui vous demande d’attribuer un nom h votre bloc. Ecrivcz 
INPUT. Comme dans le cas des options save, l’ordinateur sc met en devoir 
d’archiver votre procedure dans un fichier. D’ordinaiic, cc fichier recevra 
l’extension "1ST. Vous pouvez la modifier et la distinguer des programmes en 
ecrivant "PRC pour PROCEDURE ce qui vous donnera ici le nom 
INPUT.PRC. 

Si vous voulez une copie imprimee de votre bloc, vous cliquez dans 
Block-Option sur Llist ou <L> : comme dans le menu principal pour 
l’ensemble du programme, vous obtiendrez une copie papier de votre 
bloc-procedure. Verifiez si votre imprimante est bien allumee ! 

Le bloc ainsi archive, vous pourrez le rappeler et l’inserer dans le programme 
a un endroit quelconque par Merge ou < Shift > < F2 >. Si vous avez choisi de 
juxtaposer l’extension .PRC au nom de votre procedure, vous devez dans la 
fenetre de dialogue, amener votre curseur en cliquant sur la ligne Repertoire : 
effacer/.LST en utilisant la touche < Backspace > et remplacer par *.PRC. 
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Essayez maintenant d’inserer votre procedure input at a la bonne place dans 
votre programme. Effacez d’abord la procedure delimit6e par des marques a 
Paide de Block ou < F4 > suivi de Delete ou < Control > -D. Chargez ensuite 
le bloc grace a Merge ou < F2 > suivi du nom INPUT.PRC : le bloc s’insere 
alors a Pendroit ou est positionn6 le curseur. 

Votre programme devrait ensuite tourner de nouveau de fa§on tout a fait 
satisfaisante. Vous supposez que ceci doit etre faisable avec n’importe quel 
autre bloc ? Essayez par vous-meme 


7.5. Resume 


Vous venez d’apprendre a concevoir vos propres procedures, a les archiver 
dans Pordinateur et a les reunir dans une bibliotheque. 

Vous savez que, pour plus de clarte, vous pouvez expliciter des segments de 
programme par des lignes de texte precedees d’une apostrophe ou de REM. 

Vous pouvez transformer des segments de programme en procedures que vous 
determinez en les encadrant par : 


PROCEDURE Nom 
{instructions} 
RETURN 


Ces procedures ne pourront etre appelees que par leur nom (3.0), ou en les 
faisant preceder d’un arobas (@) ou par Pinstruction GOSUB. Vous pouvez 
de plus utiliser cette definition: 


PROCEDURE Nom (liste de param&tres) 
{instructions} 

RETURN 


Vous appelez alors toute cette liste. Mais le classement et le type doivent 
corresponds aux parametres predefinis. La liste peut contenir aussi bien des 
parametres valables uniquement localement que des parametres de variables 
(3.0) qui doivent alors etre designds par le prefixe VAR. 

Vous pouvez aussi definir des variables avec LOCAL, qui ne seront valables 
qu’a Pinterieur de la procedure concernee. Toutes les autres variables ont une 
port6e globale. 
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Vous avez fait connaissance avec deux manipulations dans le menu des blocs : 


Write <W> pour Gcrire dans un fichier 

Llist <L> pour la sortie sur imprimante 


Vous savez aussi que vous pouvez intercaler un bloc dans votre programme en 
utilisant Merge. 

Enfinvous savez que, aumoyen d&LOCATE ligne,cotoime vous pouvez amcncr 
le curseur dans la position voulue sur l’ecran pour Pentrde ou la sortie de 
donnees. UmstTuction PRINT AT(colonne,ligne) vous permet de determiner 
le debut de l’affichage. 
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Chapitre 8 



Sanctions 


l^ans le GFA Basic, les procedures gardent une grande autonomie. Elies 
reposent dans un programme ou un fichier aussi longtemps qu’on ne les 
appelle pas. Lorsqu’on les met en activitd, elles peuvent travailler avec leur 
propre stock de variables, reprendre des parametres ou participer aux variables 
du programme principal. Grace a cette grande autonomie, on peut ensuite les 
integrer dans n’importe quel autre programme. 


8.1. Pourquoi des fonctions 


En d<Sfinissant des fonctions vous pouvez ajouter des possibility & tout ce quo 
le GFA Basic vous offrc deja. Vous devriez connaitre ce concept depuis vos 
cours de mathcmatiqucs : vous ne vous en souvenez plus ? Par cxemple dans ; 


f(x) 


"f' etait le nom de la fonction et "x" celui de 1’argument rattach6 a cette fonction. 
Vous avez deja entendu cela au sujet des procedures ? Effectivement, les 
procedures ont une certaine ressemblance avec les fonctions. La grande 
difference entre les deux, reside dans le fait qu’une fonction vous fournit une 
valeur et pas une procedure. 

Comme le GFA Basic possede une foule de fonctions predefinies, je vais vous 
en citer quelques unes pour eclaircir cette difference. Vous vous souvenez de 
la fonction INT, qui formait la partie entiere d’un nombre quelconque. 
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REM partie enttere (1) 

INPUT "nombre queIconque: M p nombre 
LET entier = INT (nombre) 

PRINT "La partie entire est donc:";entier 
END 


La fonction INT re$oit comme argument la valeur de nombre et redonne une 
valeur sous entier . 

Une fonction peut par exemple etre evaluee. On pourrait renoncer 
completement a la variable entier : 


REM entier (2) 

INPUT "Nombre quelconque: 11 ,nombre 
PRINT "La partie entire est:",INT(nombre) 
END 


Nous pouvons, si le mot INT ne nous plait pas, definir notre propre fonction et 
l’utiliser dans le programme principal: 


REM entier (3) 

INPUT "nombre quelconque:",nombre 

PRINT "la partie entire est:";FN entier(nombre) 

END 

DEFFN entier(nombre) = INT(nombre) 


Vous voyez que DEFFN pennet de definir et FN d’appeler ce qu’on a defini, 
Vous pouvezutiliser l’arobas (@) a la place de FN, comme dans les procedures. 
La ligne a alors ¥ aspect suivant: 


PRINT "la partie entifere est:";@entier(nombre) 


Si vous voulez maintenant faire la meme chose avec une procedure, vous allez 
ecrire ceci (il est indifferent qu’une procddure porte le meme nom qu’une 
variable): 


REM entier (4) 

INPUT "nombre quelconque:",nombre 
@ENTIER(NOMBRE) 

PRINT "la partie entidre est:";entier 
END 

PROCEDURE entier(nombre) 
entier = INT(nombre) 

RETURN 
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Contrairement a la fonction, on ne peut pas calculer ou evaluer directement 
une procedure. Prenons un exemple : 


REM Test de puissance 
INPUT "base :‘\base 
INPUT "exposant: ".expo 

PRINT "fonction puissance : ";@puissance (base,expo) 
©Puissance (Base.expo) 

PRINT "procedure-puissance : ";puissance 
END 

DEFFN puissance (base.expo) = base ^ expo 

PROCEDURE puissance(base.expo) 
puissance = base ^ expo 
RETURN 


Si vous avez bien ecout6 a Pecole, vous savez ce que reprdsentent base expo et 
puissance pour des valeurs. Ici, nous avons utilise puissance pour trois choses 
differentes: comme variable globale, comme nom de procedure et comme nom 
de fonction. 

Regardez de plus pres la fonction et la procedure afin de bien voir la difference. 
Considerons les definitions: 


DEFFN <nom> <valeur> 

PROCEDURE <nom> 
{instructions} 

RETURN 


Une telle fonction a quelque chose d’une variable: elle appartient k un type de 
donn^es; ici, il s’agit d’un nombre decimal, si bien que nous pouvons ecrire 
DEFFNpuissance#. On obtient ici une dvaluation, ce qui ne serait pas 
forc6ment le cas avec la procedure, et meme si c’6tait le cas, on ne peut guere 
calculer une procedure. La fagon d’appeler les proc6dures et les fonctions 
differe aussi: 


< nom de la procedure > 

ou @ < nom de la procedure > 

mais par contre: 

< nom de variable > = FN < nom de la fonction > 

ou < nom de variable > = @ < nom de la fonction > 


Une fonction ne peut etre utilisee qu’a Pinterieur d’une evaluation ou d'une 
instruction, comme PRINT par exemple. Contrairement a une instruction, on 
ne peut l’appeler directement de la fagon suivante : 
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FN < nom de la fonction > 
ou @ < nom de la fonction > 


Sous cette derniere forme, Pinterpreteur du GFA Basic la prendrait pour une 
procedure! 


8.2. Un peu d’acrobatie sur les touches 


Regardons quelques fonctious qui apparticiment aux versions standard du 
GFA Basic. Vous vous souvenez que nous avons d6jicompt6 avcc des nombres, 
et que nous avons memo arrange quelques procedures et quelques fonctions 
pour le traitemenl de nombres. II y a encore d*autrcs fonctions mathdmatiques 
dans le GFA Basic, mais nous allons d’abord nous intdresscr & quelques 
utilitaires. 

Permettez-moi de reprendre un exemple un peu defraichi, mais qui tiendra 
encore bien la route : 


REM salut I 

INPUT "salut, comment t’appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ?(o/n) M 
REPEAT 

reponse$ = INKEY$ 

UNTIL reponse$ = "o 1 ' OR reponse$ = "n" 

IF reponse$ = "o" 

PRINT "je m'en r6jouis" 

ELSE 

PRINT "j’esp&re que 9a va s’am^liorer!" 
ENDIF 
END 


Vous venez de d6couvrir la fonction INKEY$, et vous avez tout de suite 
remarque qu’elle ne possede pas d’argument. Lancez le programme. Vous 
voulez ecrire votre reponse "o" suivie de < Return > mais vous n’en avez pas 
le temps: sur P6cran s’affiche deja j’espire que ga va s f ameIiorerf sans que votre 
"o" ne se soit affiche. 

La fonction INKEY$ a la propriety de lire le premier caractere correct 
rencontr6 sur le clavier de l’ordinateur, et de le faire suivre automatiquement 
de < Return > sans echo sur votre ecran, ce qui veut dire que le caract&re lu 
par l’ordinateur ne s’affichera pas. Si vous laissez tourner ce programme, vous 
pouvez appuyer sur n’importe quelle touche sans que cela soit suivi d’un effet 
quelconque. 
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Vous pouvez tout de meme interrompre votre programme par 
< Alternate > < Shift > < Control >. 

La boude nc prend fin qu’avcc l’6criture de V ou V. 11 suffil d’appuyer sur 
unc seule touche pour obtenir une rcponse } cc qui est plus con fori able quc la 
saisie avcc INPUT. L’ineonvfenient cl ant qu’on no pcut entrcr quhin signe et 
qu'on nc peul plus eoiriger la saisic* Uinstruction INKEY$ n’atfend pas 
automat iquemcnt une rgponsc tapec au clavier, die nc fait que parcourir 1c 
clavier, et prend unc chaine vide (= ,,ir ) si aucunc touche n*cst actionnce durant 
ce court laps de temps : 


REM INKEY-Test 

PRINT "Ifcre touche : 
clav$ = INKEY$ 

PRINT clav$ 

PRINT "2dme touche : 
REPEAT 
clav$ = INKEY$ 
UNTIL clav$<> ,IM 

PRINT clav$ 

END 


Vous ne voyez pas derriere Hre touche la chaine vide ( ,m ) retourn^e par 
INKEY$. Ceci correspond au siatut pas de touche . Si on relie eetle fonclion a 
une boucle, le clavier est relu jusqu’H ce qu’on appuie sur unc touche 
(touche< >En ecrivant 


REPEAT 

UNTIL INKEY$<> M " 


vous fabriquez une boucle d’attente qui sera relue jusqu’a ce qu’on appuie sur 
une touche. Si vous preferez travailler avec la souris, vous obtenez le meme 
effet en ecrivant: 


REPEAT 
UNTIL MOUSEK 


La fonction MOUSEK interroge l’etat de la souris et, s’il y a eu un clic, demande 
si une seule ou les deux touche(s) de la souris fu(ren)t actionnee(s). Si oui, la 
boucle prend fin. 

Une autre fonction du GFA Basic vous donnera encore plus de confort dans 
notre programme salut : 
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REM salut! 

INPUT "salut, comment t’appelles-tu ?";nom$ 
PRINT nom$;",te portes-tu bien ?(o/n)" 
REPEAT 

reponse$ = UPPER$(INKEY$) 

UNTIL reponse$ = "O" OR reponse$ = "N" 

IF reponse$ = "0" 

PRINT "je m'en r 6 jouis" 

ELSE 

PRINT "j’espdre que 5 a va s’am^liorer I" 
END1F 
END 


Ceci vous permet de rdpondre par "o" ou V mais aussi par "O" ou "N 1 ’. La 
fonction UPPERS transforme toutes les minuscules en majuscules. Cette 
fonction peut s’appliquer aussi a des chaines entieres de caracteres. Vous 
constaterez qu’elle transforme meme les accents : ecrivez par exemple : 


PRINT UPPER$("march 6 ") 


Pour tester une seule ligne ^instruction, vous pouvez utilisez le mode direct de 
GFA Basic. Appuyez sur ESC ou cliquez sur "Direct". 

Vous entrez alors votre instruction et terminez par <Return>. Puis vous 
revenez dans Pediteur par < Esc > < Return >. 

Les deux fonctions ci-apres vous faciliteront encore votre travail: 


SPACE$( < Quantit 6 >) 

STRING$(< Quantity >, < caractdres >) 


SPACES vous permet de former des chames d’un certain nombre d’espaces 
vides ( = spaces)* ce qui fonctionne en principe aussi avec STRINGS. 
L’msiruction STRINGS vous permet de r£p6ter autant de fois que vous le 
ddsirez un caractere ou une chame de caracteres. Pour les caractferes simples, 
vous pouvez vous servir des codes ASCII de PAtari. 

Vous obtiendrez la date et Pheure a Paide des fonctions DATES et TIMES, 
transmises comme des caracteres. Dans la version 3.O., ces deux fonctions vous 
permettent de les mettre a jour si vous voulez. 

Vous avez de plus Pinstruction SETTIME < heure > < date > : les deux 
valeurs vous sont communiqudes comme des caracteres : 
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Pheure sous la forme "HH:MM:SS' 
(heure minutes secondes) 
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la date sous la forme "JJ.MM.AA" (jour mois annde) ou 
"JJ.MM.AAAA". Cette intruction permet dc fixer la date et l’heure. 

Ne soyez pas surpris de eonstater qu’il s’agit ici de fonctions qui travaillent avec 
des caracldres. Car naturellemcnt, les fonctions peuvent etre de type string et 
meme reprendre des chaines comme des paramfetres. Vous savez depuis ie 
dernier chapilre que les paramdtres des procedures peuvent etre des chaines. 
Mais vous etes dans l’erreur si vous en ddduisez pour autant qu’un nom de 
proeddure pourrait aussi etre entrd sous forme dc chaine : le nom d’une 
procedure n’est qu’un reptre, unc marque. Voyez ci-dessus dans Ie texte! 


8.3. Arithmetique des signes 


Restons-en aux chaines de caracldres, et essayons de calculer avec elles. En 
utilisant 1’opdrateur" +" vous avez vu que les rdgles sont alors un peu diffd rentes 
de cedes de 1’arithmdtique ordinaire, et que un plus un ne fera pas foredment 
deux. 


REM calcul par signes(l) 

INPUT "ler mot“;mot.1$ 

INPUT "2&me mot";mot.2$ 
somme$ = mot. 1 $+mot.2$ 

PRINT mot.1 $;"plus“;mot.2$;" = ";somme$ 
END 


Faute d’originalitd, nous allons prendre une phrase de tous les jours : 


affirmations = "le temps ? vraiment pas beau aujourd'hui" 


On parle tellement du temps qu’il fait, pourquoi pas ici ? Eventuellement, cette 
affirmation peut s’avdrer totalement fausse, peut-etre qu’en 


realite$ = LEFT$(affirmation$,20) + RIGHT$(affirmation$ 1 16) 


La realite$ rdsulle de \'affirmations, puisqu’elle se compose des 20 premiers 
caractferes a partir dc la gauche (LEFTS) et des 16 premiers caracteres a partir 
de la droite (RIGHTS) - ce qui ressemble a un probleme de mots-croisds. 


Left$ (affirmations,20)_ \ 

retourne les 20 premiers caracteres de affirmations, e’est-a-dire "le temps ? 
vraiment". 
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Right$ (affirmations, 16) 

retourne les 16 derniers caracteres de affirmations, c’est-&-dire "beau 
aujourd’hui" 

Ainsi realiteS renvoie: 

"le temps ? vraiment beau aujourd'hui". 


Vous avez done vu Tutilite de LEFTS et RIGHTS. II existe une troisieme 
fonction tres utile qui s’appelle MID$. Elle permet de selectionner un bout de 
texte a partir de n’importe quelle position. 

Dans notre exemple, cr6ons une variable constatS 


constatS = MI D$ (aff i rmatio n$, 1,10)+ M id $ (affirmations,29,16) 


Le contenu de constatS serait: "Le temps ? aujourd’hui". 


MID$(affirmation$,1,10) 


retourne 10 caracteres a partir du ler caractere. 

MIDS (affirmations,29,16) 

retourne 16 caracteres a partir du 29eme caractere de la chaine affirmations. 

Si vous n’avez pas bien compris, ecrivez done ces petits programmes et faites 
les tourner: 


REM la pluie et le beau temps 

affirmations = "le temps ? vraiment pas beau aujourd’hui" 

PRINT affirmations 

realiteS = LEFTSfaffirmationS^O) + RIGHT$(affirmation$,16) 

PRINT realiteS 

constatation$ = MID$(affirmation$,1,10) + MID$(affirmation$,25,16) 
PRINT constatationS 
MID$(affirmation$,20 J 4) = "trfcs" 

PRINT affirmations 
END 
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Resumons 



designe un segment de la chaine, d61imite par ce qui se trouve entre 
parentheses: 


M1D$(< chain© >, <d6but>,< longueur >} __[ 

d’abord le nom de la chaine, puis le caractere de debut puis la longueur du 
segment. Vous pouvez ainsi parfois remplacer LEFTS et RIGHTS : 


realite$ = MID$(affirmation$,1,20) + MID$(affirmation$,25) 
PRINT realite$ 


Comme vous le voyez, on peut omettre de preciser la iongueur d’une chaine 
dans les paramdtres, ce qui pvovoquc la saisie implicite de tous les caracteres 
restants. Vous avez sans doute remarqud que MIDS peut clre employe non 
scuicmcnt comme fonction, mass aussi comme instruct ion : 


MlD$(affirmation$ p 20,4) = "trfes 11 
PRINT affirmations 


L’inst ruction MIDS provoque la modification dc la chaine de caracteres. Vous 
ne pouvez pas beaucoup vous tromper en entrant les li mites avec LEFTS, 
RIGHTS el MIDS : si la valeur designanl la longueur du segment depasse la 
longueur r6ellc tot ale de la chaine, ceilc-ci est reprise intdgralcmcnt. En 
utilisant MIDS, si le caractere dc depart est designe par une valeur supfirleure 
au total des caracteres de la chaine, vous obtiendrez une chaine vide affcctce 
dc la longueur z6ro. Si vous entrez des chiffres a valeur negative (qui aurait 
cette idee ?) vous reccvrez un message d’erreur. 

Si vous recherchez un caractere parliculier ou un segment dans une chaine de 
caracteres, utilisez la fonction INSTR. 


position = INSTR( < cliaine >, < objet recherchfe >) _| 

qui vous indiquera la position de 1’objet recherche. Si cet objet est absent de la 
chaine, vous verrez s’afficher un zero. Vous connaitrez la longueur d’une chaine 
de caracteres par la fonction 
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Si vous voulez par exemple remplacer un mot par un autre, vous pouvez utiliser 
ces fonctions comme argument dans les fonctions LEFTS, MID$ et RIGHTS 
ainsi qu’avec Pinstruction MID$. Nous voila maintenant capables de 
d’amdliorer notre programme arithmetique. Apr6s avoir concat6n£ deux 
textes, nous allons introduire un troisieme mot. Nous supposons bien sur que 
ce mot existe bien dans notre texte. D’ailleurs vous pourriez bien essayer tout 
seul, avant de regarder ce qui suit. 


REM calcul par signes (2) 

INPUT "ler mot";mot.1$ 

INPUT "26me mot";mot.2$ 
somme$ = mot. 1 $ + mot.2$ 

PRINT mot.1$; l 'plus ll ;mot.2$;" = ";somme$ 

INPUT "3dme mot M ;mot.3$ 
cf§but = INSTR(somme$,mot.3$) 
longueur = LEN(mot.3$) 

diff$ = LEFT$(somme$,d£but-1) + MID$(somme$,dlbut + longueur) 
PRINT somme$;"moins M ;mot.3$;" = H ;diff$ 

END 


Tout cela sera encore plus elegant si vous utilisez deux fonctions definies par 
vous-meme add$ et sub $. Notez que cette elegance n ? est valable que dans la 
version 3.0. Le meme programe adapt6 & la version 2.0 est donne plus bas. 


REM calcul par signes version 3.0 (3) 

INPUT "ler mot";mot.1$ 

INPUT "2dme mot";mot.2$ 
somme$ = @add$(mot. 1 $,mot.2$) 

PRINT mot.1$; ll plus";mot.2$;" = ";somme$ 

INPUT "36me mot";mot.3$ 
diff$ = @sub$(somme$,mot3$) 

PRINT somme$;"moins";mot.3$;" = ";diff$ 

END 

DEFFN add$(m 1 $,m2$) = m 1 $ + m2$ 

t 

FUNCTION sub$(m1$,m2$) 

LOCAL debut,longueur 
debut = INSTR(m 1 $,m2$) 
longueur = LEN(m2$) 

sub$ = LEFT$(m 1 $,debut-1) + MID$(m 1 $,debut + longueur) 
RETURN sub$ 

ENDFUNC 
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Void le meme programme adapte a la version 2.0 : 


REM calcul par signes version 2.0 (3) 

INPUT "ler mot";mot.1$ 

INPUT "26me mot";mot 2$ 

somme$ = @add$(mot. 1 $,mot. 2 $) 

PRINT mot .1 $;",plus";mot.2$;" = ";somme$ 

INPUT “36me mot";mot.3$ 

@Sub(Somme$,mot.3$) 

PRINT somme$;",moins,";mot.3$;" = ";Diff$ 

END 

DEFFN add$(m1$,m2$) = 1$ + 2$ 

t 

PROCEDURE sub(m1$,m2$) 

LOCAL debut,longueur 
debut = INSTR(m1$,m2$) 
longueur = LEN(m2$) 

diff$ = LEFT$(m 1 $,debut-1) + MID$(m 1 $,debut + longueur) 
RETURN _ 


Vous voyez dans la version 3.0 nnc autre possibility de definition des fonctions: 
soit sur une scule ligne (DEFFN) avec attribution directe d’ltne valeur, on plus 
clairement sur plusieurs lignes, encadr6es par les mots FUNCTION au debut 
et ENDFUNC A la Fin, Vous auriez pu ddfinir la fonction add$ en dcrivant: 


FUNCTION add$(m1$,m2$) 
add$ = m 1 $ + m 2 $ 
RETURN add$ 

ENDFUNC 


Cc type dc fonction reprdsente & vrai dire une variante dc PROCEDURE: les 
variables pcuvent etre ddfinies Socalemcnt, commc ci-dessus les limites debut 
et longueur qui ne sont valables qu’S l’inlerieur dc fa fonction sub$. Sinon tout 
se ddroute comme dans une procedure, II faut seulemcnt ajouter RETURN 
dans la fonction, suivi d’un parametre. Voyez ce qui arrive si vous oubliez cette 
indication. 
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8.4. Resume 


Nous en avons maintenant termine, vous connaissez la difference entre une 
procedure et une fonction: 

& les procedures, semblables en cela aux instructions, sont appelees et 
extcutees directement 

& les fonctions sont attributes a une variable ou utilisees comme valeurs 
dans une instruction d’affichage 

Vue d’ensemble sur les definitions : 


’procedure sur plusieurs lignes : 

PROCEDURE <nom> (< liste des parametres >) (version 3.0) 
'6ventuellement definitions en LOCAL 

RETURN 

'fonction sur plusieurs lignes : 

FUNCTION < nom > (< liste des parametres >) 
'6ventuellement definitions en LOCAL 

RETURN <nom> 

|ENDFUNC 

'fonction sur une ligne : 

DEFFN <nom> (<liste des parametres>) = <r6sultat> 
Elies sont appeltes par: 

'procedure: 

< nom > (< parametres >) dans la version 3.0 
@ < nom > (< parametres >) dans la version 2.0 

’fonction : 

< variable > = @ < nom > (< parametres >) 


Vous savez que les fonctions et procedures peuvent reprendre tous les types 
de donntes comme arguments ou parametres. Les fonctions appartiennent 
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d’ailleurs elles-memes a un certain type de donnees qu’on peut determiner 
soi-meme. 

Vous utilisez maintenant couramment plusieurs fonctions modifiant des 
chames de caracteres. 

INKEY$ transmet, sans 6cho sur I’dcran, le caractfere affecte a la touche que 
vous venez d’actionner. Si vous n’eti actionnez aucune, cette fonction genere 
une chaine vide Vous pouvcz creer unc bouclc d’altente en ecrivant: 


REPEAT 

UNTIL INKEY$< >"" 

REPEAT 

UNT IL MOUSEK _ 

Pour creer une chaine de caracteres vides, vous utilisez SPACE$(quantite), et 
pour creer une chaine repetant le meme caractere 
STRING$( < quantite >, < caractere > ). 

UPPER$(<string>) transforme tous les caracteres d’une chaine en caracteres 
majuscules, meme s’ils portent des accents ou un trema. 

LEFTS, RIGHTS et MIDS vous pcrmettent d’obtenir un segment decoupe 
dans une chaine de caracteres depuis la droitc, la gauche ou dans la chaine a 
parti r de I’endroit que vous dcsirez. MID$ vous permet meme de modifier des 
parties d’une chaine de caraclfcres. 

La fonction INSTR vous donne la position d’un caractere a l’interieur d’une 
chaine. Si on vous re pond position = 0, c’est que le caractere^ est absent. Vous 
connaitrez la longueur d’une chaine grace a LEN. Une chaine vide aura une 
longueur = 0. 

Vous aurez l’heure et la date par TIMES et DATES que vous reglerez par 
SE TTIME < heure >, < date >. 

En tout dernier lieu, rappelez-vous le processus de sauvegarde pour archiver 
vos blocs de programme, par exemple les fonctions ou les procedures, dans un 
fichier sdpare d’ou vous pourrez les recharger pour les insurer dans un 
programme. 

Si vous ne vous en souvenez plus, revoyez de grace le chapitre pr6cedent! 
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Chapitre 9 



A imez-vous lire ? Ou pref6rez-vous regarder un film ? Les constructions 
assez abstraites d’un texte parviennent-elles a exciter votre imagination ? 
Ou vous faut-il plulot des images ? Que ce soit par la tcldvision, la viddo, les 
magazines illustrds ou les bandes dessindes, 1’image l’emporte gdneralcment 
sur le tcxtc 6crit ou parld. Rappelons do plus fadage selon iequel un bon plan 
en dit plus long qu’ua millier do mots, ce dont on pour rail douter k la vue de 
iant dc films ou damages. L’eoril par ait plulot etrc ddmodd car il mobilise plus 
le cerveau humain qu’unc image qui sc laisse apprdhender de fa^on concrete* 


9,1. Les points et les lignes 


Avant de dessiner notre premier point, nous devrions nous donner la peine 
d’etudier plus attentivement la composition d’un ecran. Nous avons appris qu’il 
se divise normalement en (40 fois 25 = ) 1000 ou (80 fois 25=) 2000 petites 
cases. Chacune de ces cases se compose d’un certain nombre de points ranges 
selon une matrice. Selon le type, la surface de 16cran compte . 


320 * 200 points en resolution basse (16 couleurs) 

640 * 200 points en resolution moyenne (4 couleurs) 

640 * 400 points en resolution haute (n oir et blanc) _ 

Les exemples graphiques qui vont suivre se rapportent tous a la plus haute 
resolution, celle de l’ecran monochrome. 


SI VOUS POSSEDEZ UN MONITEUR COULEUR, VOUS ADAPTEREZ 
LES VALEURS LIMITES EN DIVISANT PAR DEUX LES 
COORDONNEES X ET Y. 


Le savoir de base en GFA Basic 


9-109 





Bien dibuter en GFA Basic 


9-110 


Alors que par exemple la commande PRINT utilise ces points pour dessiner 
un caractere dans le cadre d’une matrice, le mode graphique vous permet 
d’intervenir point par point. 

Pour positionner votre curseur a Paide de LOCATE, vous 6criviez d’abord les 
coordonnees de la ligne puis celles de la colonne et inversement pour PRINT 
AT. C’est exactement pared pour les instructions graphiques : vous devez 
entrer les coordonnees x et y comme des parametres. 

J’espere que vous vous souvenez tout de meme que la position horizontale d’un 
point est donnde par la valeur x et la verticale par la valeur y. Avant que vous 
nc commencicz, j’aimerais vous rappeler qu’a la difference de Paffichage du 
lextc ou les valeurs commencent k 1, les coordonn6es commencent a la valeur 
0 . 

On peut done diviser Pecran de la fagon suivante : 


0 639 

0 319 


0,0 

319,0 


639,0 


319,199 

0.199 

639,199 

0,399 

639,399 


Nous pourrions poser notre premier point en mode direct par Pinstruction 
PLOT 100\ 100, mais ceci serait quelque peu frustrant car on n’y voit quasiment 
rien. 


II en faut un peu plus! Voyez un peu Poeuvre d’art engendree par le programme 
suivant, a Paide de Pintruction RANDOM : 
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Version 3.0 


Version 2.0 


REM pointings 


REM pointings 

RANDOMIZE 


FOR 1% = 1 TO 10001 

FOR i&=1 TO 10001 


x% = RANDOM (640) 

x&= RANDOM(640) 


y% = RANDOM (400) 

y&= RANDOM (400) 


PLOT x%,y% 

PLOT x&,y& 


NEXT i% 

NEXT i& 


END 

END 



Vous trouvez que c’est trop ? alors faites vous-meme vos pointilles ! ou 
pr6f£rez-vous tout de suite dessiner des lignes ? Grace a : 


LINE x.d6but,y.d6but,x.fin,y.fin 


vous obtenez une droite selon les coordonnees de debut (x debut, y debut) et 
de fin (x fin, y fin) que vous avez saisies. Ce qui suit vous en fera voir un peu 
plus: 


Version 3.0 


Version 2.0 


REM grille 

1 

REM grille 

FOR x& = 10 TO 630 STEP 20 


FOR x% = 10 TO 630 STEP 20 

LINE x&,5,x&,395 


LINE x%,5,x%,395 

NEXTx& 


NEXT x% 

FOR y&=5 TO 395 STEP 10 


FOR y% = 5 TO 395 STEP 10 

LINE 10,y&,630,y& 


LINE 10,y%,630,y% 

NEXT y& 


NEXT y% 

END 

1 

END 


^instruction DRAW a le meme effet que PLOT et LINE. Vous dessinez un 
point par DRAWx,y et une ligne par DRAW x.debut,y.debut TO x.fin,y.fin. 


Si vous voulez relier des droites pour dessiner des polygones, vous ecrivez 
DRAW TO xfin,yfin. Le debut de ligne est fixe par la position du dernier point 
entr6. Vous pouvez apres TO accrocher autant de lignes qu’il vous plaira; ainsi 
par exemple 


DRAW 320,10 TO 590,200 TO 590,390 TO 40,390 TO 40,200 TO 320,10 


vous permet deja d’obtenir les contours d’une maison, et done une surface 
fermee. 
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9.2. Rond ou carre ? 


Restons-en au dessin des surfaces : le GFA Basic vous aide la-aussi. Non 
seulement vous cr6ez des carrds k l’aide de BOXx.gauche,y.hautyX.droite,y.bas, 
mats vous pouvez de plus les remplir soit en les coloriant soil en les grisant par 
PBOX ; vous pouvez arrondir les coins par RBOX et combiner les deux par 
PRBOXpour obtenir un carrd colorid ou grisd aux coins arrondis: 


Version 3.0 Version 2.0 


REM carr6s 

FOR i& = 0 TO 180 STEP 5 

x. gauche& = i&*640/400 

y. haut&=i& 

x. droit&=640-x.gauche& 

y. bas& = 400-y.haut& 
BOXx.gauche& p y.haut&,x.droit&,y.bas8i 

NEXT i& 

END 


REM carr6s 

FOR i% = 0 TO 180 STEP 5 

x. gauche% = i%*640/400 

y. haut% = i% 

x. droit% = 640-x.gauche% 

y. bas% = 400-y.haut% 

BOX x.gauche% l y.haut%,x.droit%, 
y.bas% 

NEXT i% 

END 

Version 3.0 


Version 2.0 

REM carr6s arrondis 


REM carr6s arrondis 

1 FOR i& = 0 TO 200 STEP 2 


FOR i% = 0 TO 200 STEP 2 

x.gauche&=i&*640/400 


x.gauche% = i%*640/400 

y.haut& = i& 


y.haut% = i% 

x.droit&=x.gauche&+320 


x.droit%=x.gauche%+320 

y.bas&=y.haut& + 200 


y.bas%=y.haut% + 200 

RBOX x.gauche&,y.haut& J x.droit&, 


RBOX x.gauche%,y.haut% ) x.droit%, 

y,bas& 


y.bas% 

NEXT i& 


NEXT i% 

END 


END 


Si vous voulez faire des ronds encore plus ronds, utilisez l’instruction CIRCLE 
x.milieu&,y.milieu&,rayon& ou ELLIPSE x.milieu&,y.milieu&, 
x.rayon&,y.rayon&. 
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Essayez ces deux petits programmes : 

Version 3.0 Version 2.0 


REM arrondis (1) 

FOR rayon&= 1 TO 320 STEP 2 

CIRCLE 320,200,rayon& 

NEXT rayon& 

CLS 

FOR rayon&=320 TO 1 STEP -2 

CIRCLE 320,200,rayon& 

NEXT rayon & 

END 


REM arrondis (2) 

FOR rayon % = 1 TO 320 STEP 2 

CIRCLE 320,200,rayon% 

NEXT rayon% 

CLS 

FOR rayon % = 320 TO 1 STEP -2 

CIRCLE 320,200,rayon% 

NEXT rayon % 

END 

Version 3.0 

Version 2.0 

REM arrondis (2) 


REM arrondis (2) 

FOR rayon&= 1 TO 320 STEP 2 


FOR rayon % = 1 TO 320 STEP 2 

ELLIPSE 320,200,rayon&,200 


ELLIPSE 320,200,rayon%,200 

NEXT rayon & 


NEXT rayon % 

CLS 


CLS 

FOR rayon& = 320 TO 1 STEP -2 


FOR rayon % = 320 TO 1 STEP -2 

ELLIPSE 320,200,rayon&,200 


ELLIPSE 320,200,rayon%,200 

NEXT rayon & 


1 NEXT rayon% 

END 

1 

END 


Comme vous le constatez, les valeurs des rayons peuvent etre plus grandes que 
Pecran, une partie du cercle ou de Pellipse est alors coupee. Ici aussi, les 
instructions PCIRCLE et PELLIPSE vous permettent de remplir ou griser les 
surfaces obtenues. 

J’ai gliss6 la-dedans une instruction que je dois maintenant expliquer : CLS 
(Clear screen) permet de nettoyer l’6cran et non la m5moire. II est 
recommande de faire usage de cette instruction de temps en temps. 

Le GFA Basic possede aussi une instruction pour dessiner des polygones a 3 
angles ou plus : POLYLINE nombre dangles, x_champ(),y_champ(). Voyez 
Pexemple page suivante: 
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Version 3.0 


Version 2.0 


REM ma maison 

DIM x_maison(5),y_maison(5) 

FOR i&=OTO 5 

READ x_maison(i&),y_maison(i&) 
NEXT i& 

'coordonn6es 
DATA 320,10 
DATA 590,200,590,390 
DATA 40,390,40,200 
DATA 320,10 

POLYLINE 6,x_maison0,y_maison0 

’fendtre et porte 
RBOX 80,200,220,300 
RBOX 410,200,550,300 
RBOX 260,180,370,380 
CIRCLE 320,100,40 
DEFFILL 1,2,9 
FILL 320,170 

’attendre la souris 
REPEAT 
UNTIL MOUSEK 
END 


REM ma maison 

DIM x_maison(5),y_maison(5) 

FOR i% = 0 TO 5 

READ x_maison(i%),y_maison(i%) 
NEXTi% 

i 

’coordonn6es 
DATA 320,10 
DATA 590,200,590,390 
DATA 40,390,40,200 
DATA 320,10 

POLYLINE 6 t x_maison0,y_maison0 

» 

’fenStre et porte 
RBOX 80,200,220,300 
RBOX 410,200,550,300 
RBOX 260,180,370,380 
CIRCLE 320,100,40 
DEFFILL 1,2,9 
FILL 320,170 

’attendre la souris 
REPEAT 
UNTIL MOUSEK 
jEND 


TOLYF1LL coordonnfies^champQ ,y_champQ" entendre directement un 
polygonc colori6 ou gris 6. Four peindre des surfaces, uiilisez FILL x,y 5 ce qui 
remplit la surface <J61iniit6e par les coordomuScs. Lc style do remplissage est 
determine par: 


DEFFILL < couleur >, < trame de remplissage >, < module >. 


ceci est aussi applicable aux instructions pr6c6dees d’un "P"(=paint) comme 
par exemple PBOX. Si vous voulez d6terminer le style de remplissage, 
choisissez un nombre entre 0 et 4: 


0 fond en couleur, pas de trame 

1 premier plan en couleur, pas de trame 

2 pointing, modules 1 k 24 de la palette Atari 

3 stri6, modules 1 k 12 de la palette Atari 

4 module k faire soi-m@me 
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Vous pouvez aussi determiner le type des lignes (dans les ronds comme dans 
les carres). 

Aprds COLOR < couleur >, vous selectionncz dans la palette un nombre entre 
0 et I pour un dcran de resolution haute, entre 0 ct 3 pour de resolution haute 
et entre 0 et 15 pour une basse resolution. Vous pouvez affinor vos coulcurs 
grace k SETCOLOR < registre dcs couleurs >, < rouge >, < vert > * < bleu >. 
Vous pouvez ddterminer lc type de dessin dcs lignes par: 


DEFLINE ctype de ligne>,< 6 paisseur>,< forme au d 6 but>,< forme k la fin > 


par exemple: 


0 invisible (s’inscrit dans la teinte du fond) 

1 ligne tir 6 e 

2 tirets cons 6 cutifs 

3 pointings 


l’dpaisseur peut aller jusqu’a 40 pixels. Les formes au debut et a la fin des lignes 
peuvent etre 0 = carre, l = fleche et 2 = rond. Pour en savoir plus, proeddez a 
de nombreux essais avec ces instructions. 


9.3. Oeuvres completes 


Tous ces essais vous ont amend a penser que vous auriez du embrasser la 
carriere d’artiste. Je me permets d'attiser la flamme, en vous indiquant ce petit 
programme, qui vous permettra de ne plus utiliser que la souris pour dessiner: 

Version 3,0 Version 2.0 


REM dessin avec la souris 

1 

REM dessin avec la souris 

DEFLINE 1,5,2,2 


DEFLINE 1,5,2,2 

REPEAT 


REPEAT 

MOUSE x&,y&,clic& 


MOUSE x%,y%,clic% 

IF clic&= 1 


IF clic% = 1 

DRAW x&,y& 


DRAW x%,y% 

ENDIF 


ENDIF 

UNTIL clic& = 2 


UNTILclic% = 2 

END 

1 

END 


Pour interrompre ce programme il faudra appuyer sur les touches < control > 
< shift > < alternate >. 
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L’instruction MOUSE interroge la position du curseur de la souris et le statut 
(ici :clic &") de ses deux touches avec les significations suivantes : 


0 pas de touche appuyee 

1 touche gauche appuy6e 

2 touche droite appuyee 

3 deux touches appuyies 


Vous pouvez dessiner en mainlcnant enfoncde la touche gauche de la souris 
(clic& = 1). Le programme prcnd fin lorsque vous appuyez sur la touche droite 
(clic&=2). 3c vous laissc le soin de compldter cc petit programme en attribuant 
d’autres vatcurs ii DEFLINE ou cn utilisant d’autrcs instructions comme par 
exemple DEFF1LL ou FILL. 

Vous pouvez archiver votre oeuvre par SGET 6cran$3, ce qui transforme le 
contenu de l’6cran en unc seule chaine (encodfie) de 32000 caracteres. Si vous 
visualisez cette chaine par PRINT, vous ne reconnaitrcz plus rien de votre 
oeuvre! 

Vous pouvez aussi n’archiver que des morceaux de vos cr6ations en utilisant 


GET x.gauche&,y.haut&,x.droit&,y.bas&,extrait$ 


II vous faut pour cela indiquer le nom du tableau ainsi que les coordonnecs du 
carre a extraire de l’ecran que vous voulez memoriser. Vous reafficherez ce 
dessin sur l’6cran par l’instruction SPUT ecran$ ou pour les extraits par 


PUT x.gauche&,y.haut&,extrait$ 


Cela copie une chaine de 32000 caracteres dans la m6moire 6cran. 

Vous n’etes pas oblige de reafficher cette image a sa place d’origine sur l’6cran, 
il vous suffit de varier ses coordonn6es. Cette commande vous permet de plus 
d’ajouter une option a la suite du nom de la chaine, option qui d&erminera la 
fagon de mixer 1’imagc prSsente a I’dcran avec 1’image appelde depuis la 
memoire. Quant ik ce qui en result era, essayez par vous-meme, votre choix 
s’ctend de 1 a 15. 

Si vous combinez l’utilisation de GET et PUT dans un bloc repetitif, vous 
obtiendrez des dessins animus. Peut-etre cet exemple vous plaira-t-il: 
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Version 3.0 


Version 2.0 


REM en voiture 
DEFLINE 1,5,2,2 
CIRCLE 80,300,50 
CIRCLE 300,300,50 
CIRCLE 300,300,30 
CIRCLE 80,300,30 
RBOX 130,220,250,320 
RBOX 140,230,240,280 

f 

REPEAT 
UNTIL MOUSEK 

FOR x& = 0 TO 619 STEP 20 
GET x&,210,x& + 350,360,auto$ 
PUT x&+20,210,auto$ 

NEXT x& 

END 


REM en voiture 
DEFLINE 1,5,2,2 
CIRCLE 80,300,50 
CIRCLE 300,300,50 
CIRCLE 300,300,30 
CIRCLE 80,300,30 
RBOX 130,220,250,320 
RBOX 140,230,240,280 

REPEAT 
UNTIL MOUSEK 

FOR x% = 0 TO 619 STEP 20 
GET x%,210,x% + 350,360,auto$ 
PUT x% +20,210,auto$ 

NEXT x% 

END 


Si le style de la voiture ne vous plait pas, modifiez-le vous-meme ! Vous avez 
au moins sur votre ecran les deux el6ments les plus importants : Pauto et la 
maison. 


Si vous voulez imprimer du texte dans vos dessins, vous pouvez tout d’abord 
utiliser Pinstruction PRINT. Texte et curseur seront positionnes grace a 
LOCATE et PRINT AT. 

Si le decoupage en lignes (de 1 a 25) et en colonnes (de 1 a 80) vous semble 
trop grossier, servez-vous alors de Pinstruction TEXT x,y, < texte >, qui vous 
permettra de placer votre texte au point pres. 

Vous pouvez de plus faire varier non seulement Pespacement entre les lettres 
(distance > 0) mais aussi entre les mots (distance < 0) en utilisant: 


TEXT x,y, < espacement >, < texte > 


Le type et la grosseur d’ecriture sont d6finis par : 


DEFTEXT <couleur >, <type >, < positionnement>, <grosseur> 


Pour definir le type de texte, vous selectionnez entre 0 et 31: 


0 normal 

1 gras (bold) 

2 gris (light) 

4 italique (italic) 
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8 soulign6 
16 6vid6 (outlined) 


Vous pouvez choisir entre quatre positionnements : 


0 de gauche k droite (normal) 

900 de bas en haut 

1800 de droite k gauche (sur la t§te) 
2700 de haut en bas 


Vous avez le choix entre quatre grandeurs des caracteres: 


4 6criture ledne (p. ex. Desktop) 

6 petits caracteres (taille normals pour les moniteurs couleur) 
13 normal (pour les monochromes) 

26 grand 


Void une nouvelle modification: 


Version 3.0 


Version 2.0 


REM bonjour 
FORa&=0 TO 5 
DEFTEXT 1 ,art,0,13 
TEXT 100*a&+40,40,"BONJOUR" 
art=2~a& 

NEXT a& 

LOCATE 6,6 

INPUT "comment t’appelles-tu ?";nom$ 
DEFTEXT 1,16,0,32 
FOR position&=200 TO 320 
TEXT position&,200,nom$ 

NEXT position& 

WHILE positionnement<3600 
DEFTEXT 1,16,positionnement l 32 
TEXT 320,200,nom$ 

ADD positionnement,900 
WEND 
REPEAT 
UNTIL MOUSEK 
END 


REM bonjour 
FOR a% = 0 TO 5 
DEFTEXT 1,art,0,13 
TEXT 100*a% +40,40,"BON JOUR" 
art=2^a% 

NEXT a% 

PRINT AT(6,6) 

INPUT "comment t’appelles-tu ?";nom$ 
DEFTEXT 1,16,0,32 
FOR position% = 200 TO 320 
TEXT position%,200,nom$ 

NEXT position% 

WHILE positionnement<3600 
DEFTEXT 1,16,positionnement ) 32 
TEXT 320,200,nom$ 

ADD positionnement,900 
WEND 
REPEAT 
UNTIL MOUSEK 
END 


Quand vous en aurez assez de voir votre nom, cliquez tout simplement avec la 
souris. Vous pourrez d’ailleurs modifier le symbole du curseur de la souris 
grace a ^instruction graphique DEFMOUSE, qui engendrera par exemple, 0 
une fldche, 2 une abeille, 3 un doigt pointd et 4 une main ouverte. 
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Vous pouvez meme invcnter voire propre symboic de curseur grace k 
DEFMOUSE. Par finst ruction "SPRITE” formed Vous pourrcz modifier [es 
objets graphiques iud£pendants dc la souris par ^instruction SPRITE forrneS'\ 
Mais alien lion, toules ces manipulations sonl assez com pi iq u£es, Si vous voulez 
apprendre a dcrire des chaines modifian! Ics symboies, et si vous voulez 
approfondir cela, il vaudrait mieux utiliser le manuel complet du GFA Basic, 
et surtout vous entramer beaucoup auparavant! 


9.4. L’image ou le son ? 


^instruction "DRAW"(3.0) deplace sur l’ecran un crayon imaginaire. 

Elle permet de faire encore d’autres choses: avez-vous deja entendu parler de 
la tortue graphique ? Un curseur fouine sur l’ecran k la recherche de certaines 
instructions. On a compare cela a une tortue (turtle), qui serait dressee k obeir 
aux instructions avance , recule , toume a gauche , toume d droite . Les instructions 
sont communiqudes tres sdchement. 

Vous pourrez lacher la bride a votre tortue sur votre ecran apres avoir entre 
les instructions et les parametres adequats k l’aide de l’instruction DRAW. Les 
deplacements sont precisds en pixel, les anglesa prendre en degres : 


move absolute 

ma 


ddplacer la tortue jusque x,y absolus 

draw absolute 

da 


placer le crayon en x,y) et dessiner une ligne 
de la derntere position k (x,y) 

move relative 

mr 

x-y 

se ddplacer de x et y pixel par rapport k 
la derntere position 

draw relative 

dr 

* f y 

placer le crayon en (x,y) relatifs (par rapport) 
k la dernifere position) et dessiner une ligne 
de la dernidre position k (x,y) 

forward 

fd 

z 

avancer de z pixel 

backward 

bk 

z 

reculer de z pixel 

turn to 

tt 

w 

tourner la tortue jusque I'angle 

left turn 

It 

w 

tourner vers la gauche de w degr6s 

right turn 

rt 

w 

tourner vers la droite de w degrds 

pen down 

pd 


pr6parer la tortue k dessiner 

pen up 

pu 


preparer la tortue k se ddplacer sans tracer 
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Etudiez bien ce tableau et essayez le programme suivant: 
Version 3.0 uniquement 


REM l6onard 
RBOX 4,4,634,354 
SETDRAW 320,200,90 

1 la tortue est au milieu, orient6e vers la droite 
REPEAT , 

PRINT AT(10,24); ,l instructions : H ;SPACE$(55); 

LOCATE 24,24 
LINE INPUT "".tortues 
DRAW tortue$ 

UNTI L tortue$ = "ma 0,0” _ 

Apr6s avoir lanc6 le programme, entrez des instructions du tableau donn6 
prdcedemment. 

Entrez par exemple: 


pd 

da 

100,50 

< return > 

< return > 

dr 

0,100 

< return > 

dr 

300,0 

< return > 

da 

0,0 

< return > 

ma 

0,0 

< return > 


SETDRAW permet de placer la tortue, devenue invisible, au milieu de Fecran 
(320,200). Elle est orientde la tete vers la droite (90). Cette instruction remplace 


DRAW ^8320,200 tt90” 


La saisie des abr£viations des instructions se fait par LINE INPUT car on utilise 
dcs virgules. Le programme se lermine lorsque vous avez mis aupanier (coin 
en haut & gauche de votre 6cran) votre tortue par "ma 0,0". 

Tout cela vous permet de satisfaire vos yeux mais pas vos oreilles ! si vos dons 
graphiques vous d6§oivent quelque peu, il vous reste la musique, avec 
Finstruction: 

SOUND < canal >, < puissance >, < note >, < octave >, < durfee >_ 
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Un exemple sonore: 


SOUND 1,15,1,4,20 
SOUND 2,15,5,4,20 
SOUND 3,15,8,4,20 


U Atari ST possSde trois canaux sonores que vous d6signez par leur num6ro 
(de 1 k 3). La puissance sonore s’etale de 1 k 15 - la valeur 0 signifie 
silencieusement. Vous pouvez aussi intervenir sur le volume sonore par le 
bouton de votre moniteur. 

Les notes sont numerotdes de 1 a 12. Les musiciens savent ce qu’est une octave, 
qui se compose de 12 demi-tons : 


I =ut, 2 = ut#, 3 = r§, 4 = r6#, 5=mi, 6=fa, 7=fa#, 0 = sol, 9 = sol#, 10=la, 

II =la#, 12 = si 


Le son s’etend sur huit octaves (de 1 a 8). Si vous ne connaissez rien a tout cela, 
faites des essais avec differents nombres. La dur6e d6signe le temps qui s’ecoule 
(en 50ieme de seconde) jusqu’a Pexecution de la prochaine instruction. Vous 
pouvez de nouveau couper le son en ecrivant SOUND <canal>,0,0,0,0. 

La commande WAVE vous permet d’obtenir une suite musicale et d’intervenir 
sur le timbre. Pour tout cela, vous devriez consulter le manuel complet du GFA 
Basic et avoir beaucoup de patience. Si vous trouvez que c’est trop complique, 
estimez-vous satisfait avec instruction PRINT CHR$(7). 


9.5. Resume 


Ce bref chapitre concernant les possibilites graphiques et sonores est loin de 
vous avoir initie k toutes les subtilites offertes par le GFA Basic. Je ne peux 
pretendre ici epuiser tout ce qu’on pourrait dire sur ce domaine, qui vous offre 
un vaste champ de decouverte. Mais vous en savez deja beaucoup : 

il existe 3 modes graphiques : 


320 fois 200 points avec 16 couleurs diff6rentes 
640 fois 200 points avec 4 couleurs diff6rentes 
640 fois 400 points pour le monochrome 


Les instructions suivantes vous permettent de determiner la couleur, le motif 
de remplissage, la forme des lignes et de Pecriture dans vos images : 
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COLOR <couleur> 

SETCOLOR < registre >, < rouge >, < vert >, < bleu > 
DEFFILL < couleur >, < remplissage >, < module > 

DEFLINE ctype de Iigne>,<6paisseur>,<d6but>,<fin> 
DEFT EXT < couleur >, < type >, < angle >, < grandeur > 


Pour dessiner et peindre, vous utilisez: 


PLOT x,y 

pour des points 

LINExl.yl^^ 

pour des lignes 

DRAW...TO.... 

pour des points, des lignes, des p6rim&tres 

BOXx1,y1,x2,y2 

pour des quadrilatdres 

RBOXx1,y1,x2,y2 

pour des quadrilatdres k coins arrondis 

POLYLINE n.xO.yO 

pour des polygones (trois angles et plus) 

CIRCLE x,y,r 

pour des cercles 

ELLIPSE x,y,r1,r2 

pour des ellipses 


Des surfaces determines sont peintes a Paide de PBOX, PRBOX, 
POLYFILL, PCIRCLE et PELLIPSE ; elles peuvent etre remplies par FILL. 

Vous avez la possibilit6 d’archiver un dessin ou un morceau de dessin sous 
forme de chaine, puis de le rappeler sur votre 6cran grace a SGET$ ou SPUT$ 
et GETxl,ylfX2,y2,a$ ou PUTx,y,a$. 

CLS vous permet d’effacer l’ecran, et TEXTx,y, < texte > dlnserer la oii vous 
le ddsirez, au point pres, une chaine dc caractfcrcs. Le paramdtre 
< espacement > vous permet de ddterminer Pdlongation ou la compression de 
ce texte 6crit. 

Vous pouvez manipuler votre souris non seulement par MOUSEK mais aussi 
par "MOUSE x,y, < statut >. Vous pouvez encore mieux dessiner (dans la 
version 3.0) grace a Instruction DRAW, et meme fabriqucr des abrogations 
destructions: 


ma/mr 

*,y 

d6placer la tortue 

da/dr 

x,y 

dessiner la tortue 

fd/bk 

z 

z pixel en avant/en arridre 

tt/lt/rt 

w 

tourner la tortue 

pd/pu 


faire apparartre/disparartre la tortue. 


SETDRAWx,y, < angle > dans la version 3.0 vous permet de positionner la 
tortue. Enfin vous accddez a la creation sonore par SOUND 
<canal >, <puissancesonore >, <note>, <octave>, <duree >. 
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Chapitre 10 


fl’utrhjres cle programme 


T es ordinateurs sont avant tout des machines de traitcment dc donnees. Car 
-^tous les programmes, qu'il s’agisse des programmes Sexploitation on de 
traitement, sont dans une certaine mesurc des programmes de traitcment dc 
donnees. En effet, tout ce que fait Pordinateur revient toujours en quelque sorte 
a traiter des donnees. 

II n’est done pas etonnant de constater que beaucoup de programmes ont une 
construction similaire. Comme vous voil£ devenu(e) un(e) technicien(ne) 
averti(e) sur Atari ST, vous connaissez le concept de menus deroulants. 


10.1. Un menu 


Ce qui correspond le mieux a mon intention de vous donner des bases solides 
et une grande habilete a confectionner des programmes longs en GFA Basic, 
c ? est precisement Texemple d’un programme de traitement de donnees.il doit 
etre clairement structure et se composeR d’un nombre fini de blocs de 
programmes. 

Beaucoup d’autres programmes sont construits de la meme fagon : meme le 
traitement de texteS ou de graphiques est une forme de traitement des donnees. 
Ne renoncez pas a Pinsertion d’elements graphiques ! A Paide de routines 
offertes par le GFA Basic, nous allons donner un cadre correct a l’ensemble. 

Commengons par planifier notre projet Soucions-nous du menu principal. Ce 
dernier doit si possible en un seul coup d’oeil, offrir toutes les (ou la plupart 
des) options essentielles pour le traitement et la gestion des donn6es et des 
fichiers. 
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A litre d’exemple, regardez la barre de menus des applications GEM qui donne 
acces aux menus d6roulants (menus pull-down) ou les lignes de menu du GFA 
Basic. 

Vous pouvez alors selectionner Poption qui vous concerne, soit & Paide des 
touches, soit en cliquant sur Poption choisie, avec la souris toujours fournie 
avec les ordinateurs Atari. 

Pour nos exercices, nous nous satisferons tout d’abord d’une fenetre. Nous 
disposerons ainsi de toute la surface de Pecran pour 6crire notre menu. Nous 
simplifierons encore notre menu en n’utilisant que la selection par les touches 
du clavier. 

Pensons tout d’abord aux options necessaires: que voulons-nous faire avec les 
donnees ? 

& En premier lieu, il faut pouvoir sauvegarder fes donnees : nous avons 
besoinpour cela d’un programme gdraut les fichiers. Nous avons besoin 
d’un programme de saisie pour dcrire el entrer les donates depuis le 
clavier dans Pordinateur. II nous faut un programme de correction pour 
pouvoir modifier les donnees, effacer les donnees perimees et en 
ajouter de nouvelles. 

$ II serait intdressant de trier les donnees, de les ranger selon un ordre 
determine afin d’avoir une meilleure vue d’ensemble et de mieux les 
retrouver par la suite : il nous faut pour ceta un programme de 
rangement et de recherche des donnees. Naturcllement, nous voulons 
pouvoir lire les donnees soit a Pecran soit sur du papier imprime : il 
nous faut un programme dc sortie-impression. 


FICHIER 

DONNEES 

1, Gestion 

Z. Sauvegarde 

3. Chargenent 

4. flffichage/Inpression 

G. Enregistrenent 

7, trl 

8. Recherche/Renplace 

5. aide(s.O.s) 

0. Fin 


-appuyei sur une touche S.U.P- 
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Pour pouvoir traiter et manipuler les donnees avec souplesse, il nous faut offrir 
un grand eventail d’options. Les possibilites ci-dessus doivent naturellement 
etre re-subdivisees: 

& En ce qui concerne la gestion des fichiers, il faudrait pouvoir en obtenir 
la liste, pouvoir les copier, les effacer et les renommer. 

$ En ce qui concerne les sauvegardes et chargements, il faudrait avoir la 
possibilite de transferer les fichiers de sauvegarde vers Pordinateur. 

I En ce qui concerne la transmission des donnees, elle devrait pouvoir 
se faire non seulement vers la sortie parallele (imprimante), mais aussi 
vers le port serie (modem, autre ordinateur). 

$ En ce qui concerne le traitement,qu’il comprenne la saisie et la sortie 
des donnees mais aussi leur correction. 

& En ce qui concerne le tri : on doit pouvoir ranger, rechercher et 
remplacer les donnees selon differents criteres. 

$ En cas d’urgence, on dispose de Poption aide et enfin de Poption fin 
pour terminer. 


Nous avons besoin de sous-menus permettant a Putilisateur d’exprimer 
concretement et facilement ses souhaits. L’un d'eux pourrait prendre la forme 
suivante: 
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Vous voyez que quasiment chaque option du menu principal ddbouche sur un 
sous-menu, qui ne sera meme pas forcdment le dernier degr6 de subdivision. 


10.2. Options et choix 


Je vous prdviens tout de suite que nous n’allons pas dcrire tous les programmes 
ndcessaires pour toutes les options. N’oubliez pas que mon but est de trouvcr 
un exemple vous permettant d’apprcndre le GFA Basic ! Vous serez de plus 
en plus apte & dcrire vous-meme tout ce qu’il faudra pour adapter ce 
programme d’excmple it vos bcsoins - si vous le desirez. 


La procddure envisagee pour les menus se divise en deux parties : Paffichage 
des options disponibles et la selection de la procddure adequate. 

II vous faut maintenant traduire cela en GFA Basic. Laissez de cote pour 
l’instant la presentation graphique des menus dans des cadres, que nous 
confectionnerons a la fin a l’aide des instructions graphiques GFA. 

Et maintenant, au travail ! Fermez votre manuel, et ne l’ouvrez que lorsque 
vous pensez avoir dcrit une procddure valable. 

Crdons d’abord une procddure de prdsentation des choix. 


PROCEDURE options 

pos&= 15 

PRINT AT{23,5);"FiCHtER" 

PRINT AT (50,8); “ DO N N EE$“ 

PRINT AT(pos&,8);'T. Gestion 11 
PRINT AT(43.8);"6. Traitemant'' 

PRINT AT{pos&,lO);"2. Sauvegarde 
PRINT AT^IO); 1 '/. trl 1 ' 

PRINT AT(pos&,11); ,, 3. Charge merit" 

PRINT AT(43,11);"8. Recherche/Rem pi ace" 

PRINT AT(pos&,13);"4. Affichage/impression" 

PRINT AT(pos&,16);"5. Aide (s.O.s.)' 1 
PRINT AT(43,16);"0. Fin" 

PRINT AT(pos& + 8,20);'' -Appuyez une touche S.v.P- 
RETURN _ 


et maintenant pour pouvoir choisir entre ces options : 


PROCEDURE choix 
INPUT "“,choix& 
IF choix&= 1 
gerer 
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ENDIF 
IF choix&=2 
sauvegarder 
ENDIF 

IF choix&=3 
charger 
ENDIF 

IF choix&=4 
afficher 
ENDIF 

IF choix&=5 
aider 
ENDIF 
IF choix& = 6 
traiter 
ENDIF 

IF choix& = 7 
trier 
ENDIF 

IF choix& = 8 
rechercher 
ENDIF 
RETURN 


Vous pouvez naturellement retenir d’autres noms pour vos procedures si 
ceux-ci ne vous plaisent pas, puisqu’ils ne sont pas encore predefinis. Si vous 
pensez cela plus pertinent, vous pouvez ne faire qu’une seule procedure en 
reunissant les deux parties ci-dessus en lui donnant par exemple le nom de 
menu principal. 

Je ne vous le conseille pas, car cela ne rendra pas votre programme plus clair, 
au contraire. A ce stade de l’6criture, notre programme principal ne se 
compose a vrai dire que des en-tetes options et choix : 


REM mini-banque de donn6es 

options 

choix 

END 


Vous allez certainement sourire ou vous facher en voyant le proced£ 
rudimentaire que j’ai utilise pour ecrire le programme de choix, surtout lorsque 
vous connaitrez l’instruction ON: 


PROCEDURE choix 
INPUT "",choix& 

ON choix& GOSUB gerer, sauvegarder, charger, afficher, aider, traiter, 
trier, rechercher 
’tout sur une seule ligne s.v.p. I 
RETURN 
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L’un dcs sous-programmes figurant ci-tlessus aprts GOSUB sera appele scion 
le chiffrc saisi aprfis choixS. NumtSro 1 = gfirer, num<5ro 8 = rechercher. Si 
vous entrez un z6ro ou un chiffre (ici) supfirieur a 8.Le programme cxdcutera 
l’instruction figurant juste aprfcs la llgne dc ON, cc qui cst.trfcs pratique ! Dans 
sa version 3.0, le GFA Basic vous offre une autre alternative que vous devricz 
etudier: 

Version 3.0 


PROCEDURE choix 
INPUT "",choix& 
SELECT choix& 
CASE 1 
gErer 
CASE 2 

sauvegarder 
CASE 3 
charger 
CASE 4 
afficher 
CASES 
aider 
CASE 6 
traiter 
CASE 7 
trier 
CASE 8 
rechercher 
ENDSELECT 
RETURN 


L’instruction SELECT (dans la version 3.0) nous permet de faire des 
branchements en fonction de la valeur num6rique. Endselect nous permet de 
finir cette condition. Elle doit obligatoirement apparaitre. 

Les instructions CASE sont multi-conditionnelles. Elies sont parcourues de 
haut en bas. 

10.3. De cas en cas 


Examinons a la loupe le programme ci-dessus comportant des embranchements 
successifs. On voit tout d’abord au de but du bloc, que la variable choix$ peut 
etre selectionnee: 


SELECT choix$ 
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Suivent les differents cas parmi lesquels peut s’operer le choix$, Dans 
^instruction CASE il est tres important de ne pas ecrire sur la meme ligne 
CASE numero et le nom-de-Vinstruction-a- executer . 

Remarquez bien qu’unbloc de programme de selection SELECT..CASE doit 
se terminer apres l’dcriture de toutes les options par une marque de fin de 
selection. Ici ENDSELECT, tout comme les blocs de IF ou les autres 
proc6dures et fonctions. 

Pour que vous puissiez maintenant tester votre programme, vous devez relier 
toutes les procedures ci-dessus par une instruction vide("dummy") : 


PROCEDURE gerer 
RETURN 

PROCEDURE sauvegarder 
RETURN 

i 

PROCEDURE charger 
RETURN 

PROCEDURE afficher 
RETURN 

PROCEDURE aider 
RETURN 

PROCEDURE traiter 

RETURN 

* 

PROCEDURE trier 
RETURN 

i 

PROCEDURE rechercher 
RETURN 


Vous pourrez par la suite remplir chacune de ces enveloppes . Du point de vue 
de la syntaxe, ce programme devrait tourner correctement. Mais quel que soit 
votre choix, il ne sera pour Pinstant suivi d’aucun effet. Les proc6dures definies 
ne sont encore que des mirages ! Pour voir quelque chose s’afficher, vous 
pouvez d6ja commencer par intercaler quelques instructions PRINT, mais en 
tenant compte tout de suite des possibilitds du GEM : 


PROCEDURE gerer 
ALERT l/'Gestion'W OK " 1 back% 
RETURN 

PROCEDURE sauvegarder 
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ALERT VSauvegarde'W OK " p back% 

RETURN 

PROCEDURE charger 
ALERT VChargemenf'.V OK ",back% 

RETURN 

PROCEDURE afficher 

ALERT 1 p "Affichage/lmpression",1 p " OK " p back% 
RETURN 

PROCEDURE aider 
ALERT 3, 11 Aide (s.o.s.)",1," OK M p back% 

RETURN 

PROCEDURE traiter 
ALERT 2, l Traitement ,l 1 1 p M OK'\back% 

RETURN 

PROCEDURE trier 
ALERT 2 p "Tri" l 1 ( 1 ' OK ’\back% 

RETURN 

PROCEDURE rechercher 
ALERT 2, ,l Recherche/Remplace M P V OK M p back% 
RETURN 


Tout se passe ensuite comme si on avait reellement la possibilite de choisir. 
L’instruction ALERT 


ALERT <symbole>,<texte> P <touche retour> p <touchetexte> p back% 


permet de g£rer ce qu’on appelle des messages d’alarme. II s’agit en fait d’une 
fenetre contenant un texte informatif ainsi qu’un symbole dont le chiffre est 
choisi entre 0 et 3 : 


0 pas de symbole 

1 point d'exclamation 

2 point d'interrogation 

3 panneau STOP 


II y a de plus un ou plusicurs boutons (buttons) sur lesqucls on peut cliquer 
avcc la souris. Le bouton return est gdndralcmcnt dans un cadre soulignc de 
gras, on peut aussise contents d’aclionner la touche < return >. II est possible 
d’dcrlrc un texte devant figurer dans l’un de ces boutons. back% contient la 
valeur du bouton sur lequcl on clique, Nous n’avons pas encore k introduire 
cette variable A ce slade du programme, mais il faut ddja dcrire back% dans la 
liste des parametres. 
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Peut-etre n’etes vous pas tout a fait convaincu de l’utilite de l’instruction 
SELECT ? Si vous le desirez, vous pouvez en rester a l’instruction 
ON..GOSUB, ce que vous serez oblige de faire si vous ne disposez que de la 
version 2.0. Pour moi j’en reste a SELECT..CASE, car cette instruction a 
l’avantage de permettre des ajouts ulterieurs, comme par exemple : 


PROCEDURE choix 
INPUT "",choix$ 
SELECT choix$ 
CASE"r, ,, g ,, 
gerer 

CASE "2",“8" 
sauvegarder 
CASE "3" I "o" 
charger 
CASE "4", "a" 
afficher 
CASE "5'V'O" 
aider 

CASE "671" 
traiter 

CASE "7 M ,T 
trier 

CASE "8",T 
rechercher 
ENDSELECT 
RETURN 


Vous pouvez ainsi selectionner non seulement en entrant des num6ros mais 
aussi en utilisant les initiates des mots. La procddure sera encore plus 
confortable si vous ecrivez: 


PROCEDURE choix 
REPEAT 

choix$ = UPPER$(INKEY$) 
UNTIL choix$o ,IM 
SELECT choix$ 

CASE “I'V'G" 
gerer 

CASE "2 M ,"S" 
sauvegarder 
CASE "37C" 
charger 
CASE "4", "A" 
afficher 
CASE ,1 5 M 1 M 0 M 
aider. 

CASE "6 M ( "T" 
traiter 
CASE "7","I" 
trier 
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CASE "8","R" 
rechercher 
ENDSELECT 
RETURN 


De cette fa^on, tout passe par les touches du clavier, et vous pouvez, en plus 
des chiffres, utiliser des initiales en minuscules ou en majuscules. Si vous 
reprenez cette procedure pour votre usage pedagogique, vous devriez attirer 
Pattention sur la possibilite qu’elle offre d’ajouter d’autres options. 

Avec CASE, on peut proceder a des tests sur de plus grandes masses : par 
exemple CASE "a" TO "z" va parcourir toutes les lettres minuscules de 
Palphabet. L’instruction SELECT fonctionne avec des caracteres simples mais 
aussi avec des chames pouvant comprendre jusqu’a quatre caracteres. 


10.4. Repetition de la possibilite de choix 


II vous est certainement arrive lors des tests d’entrer une reponse fausse dans 
les choix offerts sous CASE, soit par erreur soit deliberdment. II serait alors 
plus agr6able de pouvoir reafficher le menu de selection. 

Vous avez seulement besoin d’une boucle entourant Pinstruction de saisie pour 
empecher Pentree de donnees inxactes. Quels sont les signes et caracteres 
indesirables ? 

S’il s’agit de limiter les possibilites de rdponse aux touches numeriques, 
Pecriture de la boucle est tres simple : 


REPEAT 

choix$ = INKEY$ 

UNTIL choix$> = "0" AND choix$ < "9" 


Cela parait par contre bien plus complique si Pon veut selectionner les autres 
touches, dans Pensemble des caracteres utilisables par Pordinateur. Celui-ci 
range en effet les chiffres et lettres dans un certain ordre, mais en les separant 
par des signes particulars. Si vous voulez tenter d’ordonner tous ces caracteres 
et signes pour formuler une condition acceptable, reportez-vous a Pannexe C. 

La version 3.0 du GFA Basic vous offre une autre possibilite. Les blocs CASE 
peuvent etre soumis a une condition, si bien qu’on peut adopter la solution 
suivante : si Putilisateur appuie sur une des touches retenues dans les blocs 
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CASE, l’ordinateur execute la proc6dure correspondante, sinon il repete la 
question. 


On obtient le programme suivant: 


PROCEDURE choix 
REPEAT 

choix$ = UPPER$(INKEY$) 
UNTIL choix$ < >"" 

SELECT choix$ 

CASE "I'V'G" 
gerer 
CASE 

sauvegarder 
CASE ,, 3" 1 "C' 1 
charger 
CASE "4","A" 
afficher 
CASE "S'V'O" 
aider 

CASE "6","T" 
traiter 

CASE "7",T 
trier 

CASE "8","R" 
rechercher 
DEFAULT 
choix 

ENDSELECT 

RETURN 


L’instruction Default intervient si aucune des conditions placees entre 
select...case n’est realise ; II faudra rechoisir jusqu’a ce que la condition soit 
remplie. 


Si aucune des touches adequates n’a ete actionnee (DEFAULT), le menu de 
choix se reaffiche. Ceci s’appelle une recursion. Je vous mets cependant en 
garde contre une trop grande frequence d'crrcurs, car Pordmatcur note les 
rdaffichagcs sur une pile. II arrive un moment ou cclte fichc est plemc, et 
deborde ce qui provoque Paffichage d’un message d’erreur: une des n^moircs 
de travail est trop remplie. Dans les cas les plus graves, cecii provoque une 
interruption du travail en cours, vous devez rdinitlaliser votre Atari. 


Je ne suis pas encore satisfait de cc programme, et vous ? Que se passe-t-il si 
vous appuvez sur une des bonnes touches provoquant 1 execution de la 
procedure choisie, qui est toujours pour Pinstant reduite a un message 
d’alarme ? Le programme prend fin ! 
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Et si je dcvais soil recommcncer le meme traitement soil tn sdlcctionner un 
autre ? En effct, aprds avoir charge un fichier, je veux pouvoir le trailer, 
l’affichersi necessairc et sauvegardcr le fielder tel qu’il est aprds sa mise-S-jour. 
Pour Pinstant, 1’utilisateur ne peut pas choisir le moment oil il arrete son 
programme! 

II faudrait disposer d’un break ou mieux d’une sortie en douceur du programme 
en cours. Pour pouvoir sortir a volonte du programme par une touche 
quelconque, il faut que les procedures options et choix se rdpfitent jusqu’a ce 
qu’on aclionne une touche d6termin£e. Ceci ressemble fort a une boucle et e’en 
esl une effect! vemenE: 


REM mini-banque de donn6es 

i 

REPEAT 

options 

choix 

UNTIL choix$ = "0" OR choix$ = CHR$(27) 
END 


CHR$(27) etend les possibilites de sortie du programme a la touche < Esc >. 
Cette touche est justement la pour vous permettre de vous echapper (escape). 
Mais vous pouvez choisir une autre touche pour vous enfuir, 

Etes-vous satisfait du rdsultat ? Vous devriez encore tester votre programme. 
Apr£s avoir obtenu 1'affichage des messages d’alarme, essayez de sortir en 
douceur. Vous vous en etes sorti ? Vous ctes restd coined ? Alors il faut freiner 
en appuyant sur les touches : 


< Control > < Shift > < Alternate > 


pour sortir de la boucle sans fin. Voila qui n’est pas bien doux! Ah ! si nous en 
dtions reste aux chiffres ! Nous sommes maintenant entres dans une boucle 
certes elegante mais dont nous ne pouvons sortir sans degats ! 

L ’os qui vous reste en travers de la gorge doit sc trouver dans la procedure 
choix. Que se passc-t-i! si vous n’appuyez sur aucunc des touches requises ? 
Vous faites alors intervenir 1’instruction DEFAULT, il faut rechoisir et ce 
jusqu’it ce qu’une des touches adequates soit acfionnde, ce qui provoque 
I’execulion dc la procedure appelde et la fin de ia repetition de la grille de choix. 
Mais le programme principal se poursuit puisque vous n’avezappuyc ni sur "0" 
ni sur < Esc > (= CHR$(27)): 
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REPEAT 

UNTIL choix$ = "0" OR choix$ = CHR$(27) 


Si bien que vous revenez a la grille de choix. Mais vous aimeriezbien sortir du 
programme ! Que se passe-l-il si vous appuyez sur 0 ou <Esc> . 11 faut 
encore et de nouveau choisir! Car justement, aucune de ces deux touches vous 
permettant de sortir ne fait partie de cellcs qui sonl retenues comme dcs 
rdponses correctes. Ce qui fait que la procedure recommence 
automatiquement, et le programme principal ne prend jamais connaissance de 
votre action sur Ics touches de sortie! 


Ce processus no s’arrfite plus : nous avons 1c 
le programme ! Pour y rcm6dicr, il faut f&ixe 
parmi les touches admises: 


PROCEDURE choix 
REPEAT 

choix$ = UPPER$(INKEY$) 

UNTIL choix$<> 1,11 
SELECT choix$ 

CASE ,I 0 II ,27 
REM vide 
CASE 
gerer 

CASE "2","S" 
sauvegarder 
CASE "37C" 
charger 
CASE "4","A" 
afficher 
CASE "5","0" 
aider 

CASE "6","T" 
traiter 
CASE M 7 M ( T 
trier 

CASE "8", M R" 
rechercher 
DEFAULT 
choix 

ENDSELECT 

RETURN __I 


choix, mais sans pouvoir stopper 
figurer les deux touches de sortie 


Nous avons ajoutd un CASE"0” accompagnfi du nombre 27 qui dfeigne la 
touche < Esc >, apres lequel vous ne trouvez plus rien sauf REM vide. Lorsque 
i’interprfiteur du GFA Basic nctrouve aucune instruction, il assimile cela a une 
instruction vide. Cest it dire que 1’ordinateur ne fail rien, ce qui est justement 
Peffct rechcrchd icL Voi& maintenant quo nous avons sort! les touches U et 
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< Esc > de l’instruction DEFAULT, et on peut done sortir en douceur de ce 
programme. 


10.5. Resume 


Ce chapitre vous a surtout permis d’approfondir vos connaissances, mais aussi 
voir des choses nouvelles. Vous ne connaissez pas seulement la condition 
simple 



IF < condition > 

< instructions > 

ELSE 

< instructions > 

ENDIF 

mais aussi les conditions multiples 


ON <valeur> GOSUB <listedes procedures > 


et au 

ssi dans la version 3.0 


SELECT < variable > 

CASE <valeur> 

< instructions > 

DEFAULT 

< instructions > 

ENDSELECT 


Vous savez qu’on peut ometlre ELSE et DEFAULT. Tespdrc que vous n’avcz 
pas, oublid que i’instruclion SELECT..CASE admet tous les types de donndes 
mais seulement des cliames limitdes A quatre caract&rcs, et que CASE 
<depuis> TO <jusqu’&> vous permet dc tester des intervalles de donndes 
d£limil6s. Chaquc ligne CASE forme un bloc qui peut contenir plusieurs 
instructions, 

Vous savez qu’une procedure du GFA Basic peut s’appeicr cUe-meme et etre 
ainsi rdcurrente. Vous vous souvenez que CLS (clear screen) sort k cffacer 
I’dcran, En tout dernier lieu, avec 1’dcriturc de : 


ALERT < symbde >,< texts >,< touche return>,<touche texte>,back% 


vous avez fait tine petite incursion hors du GFA Baste, dans le GEM. 
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Chapitre 11 


A. ^ >H '*•. 




N ous n’avons pas encore inaugurd notre banque, sans meme pailer d 
Pouvrir! Pour bien lancer noire produit, nous devnons lui donner medleur 
asoecl Nous pouvons envisager diverses hypotheses, mats comme notre 
pr®Si= dS do plus on plus long, 11 nous hul choisir uno soluuon nous 
permettant de conserver unc certaine clartd dans son ddroulcment et son 
dcriture. 


11.1. Tout doit tenir dans un cadre 


Le GFA Basic nous offre une foule ^instructions graphiques ; essayons done 
tout de suite de confectionner un cadre. Voici la solution la plus simple . 


REM mini-banque de donn6es 

REPEAT 

options 

BOX 88,42,528,328 
choix a 

UNTIL choix$ = "0" OR choix$=CHR$(27) 
END ____ 
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Essayons de nous donner un peu plus de mal! et reecrivons les menus avec 
tous les enrichissements que nous apportons : 


PROCEDURE options 
pos&=15 

PRINT AT(23,5);''FICHIER" 

PRINT AT(50,5);"DONNEES" 

PRINT AT(pos&,8);"1. Gestion" 

PRINT AT(43,8);"6. Traitement" 

PRINT AT(pos&,10);"2. Sauvegarde" 

PRINT AT(43,10); M 7.1" 

PRINT AT(pos&,11);''3> Chargemenf 
PRINT AT(43,11);"8. Recherche/Remplace" 

PRINT AT(pos&,13);"4. Affichage/lmpression" 

PRINT AT(pos&,16);"5 + aide (s,0.s)" 

PRINT AT(43,16);"0. Fin" 

PRINT AT(pos& + 8,20);" -Appuyez une touche S.V.P-" 
RETURN 

PROCEDURE choix 
REPEAT 

choix$ = UPPERS (INKEY$) 

UNTILchoix$< >"" 

CASE M 0",27 I Esc 
REM 

CASE "1VG" 
gerer 

CASE "2" P "S" 
sauvegarde r 
CASE 
charger 
CASE "4","A" 
afficher 
CASE "5" p "0" 
aider 

CASE "6 ,l f M T" 
traiter 

CASE "7","I" 
trier 

CASE "S'V'R" 
rechercher 
DEFAULT 
choix 

ENDSELECT 

RETURN 


Si vous voulez que tout marche bien, v6rifiez le nombre exact de caracteres 
vides & l’mtfirieur du texte a afficher dans la procedure de choix. Si vous ne 
disposez que de la version 2.0, vous devez encadrer la procedure de choix a 
I’aide de ON..GOSUB ou destructions IF. 
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Tout k fail incidemraent, vous avez conslatd qu en pliant un point 
declamation (!) on pcut ajouter un commentate a la fin d une ligne. Nous 
fcrons un targe usage de cette possibility dans le programme principal. Nous 
allons confectionner lous les cadres necessaires . 


REM mini-banque de donn6es avec cadres 

OPTIONS 


1 

BOX 88,42,528,328 

Icadre principal 

BOX 96,50,320,92 

IFICHIER 

BOX 320,50,520,92 

IDONNEES 

BOX 96,100,320,220 

•Menus 1,2,3,4 

BOX 320,100,520,220 

IMenus 6,7,8 

BOX 96,228,320,268 

IAIDE 

BOX 320,228,520,268 

!F1N 

BOX 88,292,528,328 

ITouche 

REPEAT 


choix 


UNTIL choix$ = "0" OR choix$ 

= CHR$(27) 

END 



Ceci devrait constituer noire menu. Vous voulez peut-etre encore vous 
entrainer afaire des cadres ? Si les miens nc vous plaisent pas ou vous paraissent 
trop larges, n’hesitez pas a les modifier! RBOX vous permettra d arrondir les 
angles, et vous pourrez teinter les surfaces des cadres par FILL. 


11.2. Encore un menu 


Ce menu ne vous convient pas ? Vous etes tellcment gat£ par le GEM que.vous 
prdfereriez quelque chose comme le GEM Desktop, avecses menus dci ou * 
et la selection par la souris ? II se trouve que D-aussileGFA Basic peut vous 
aider. Essayons d’abord de fabriquer un menu du style OEM* 

II nous faut pour cela une chaine inscrite dans un tableau que nous devons 
dimensionner: il doit en effet contenir non seulemcnt les textes de vos options 
mats aussi des chaines ndcessaircs au GEM pour ^organisation des menus . 


PROCEDURE options 

i 

— 

DIM texte$(50) 

_____ 
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Le tableau ainsi delimite va servir a lire (READ) l’ensemble du texte des 
options figurant dans la liste des donnees DATA : 


FOR i = 0 TO 24 

READ texte$(i) (porter le texte dans le tableau 
NEXT i 

DATA DESK 
DATA Info 

DATA- 

DATA 1,2,3,4,5,6,”" 

DATA FICHIER 
DATA Gestion 
DATA Sauvegarde 
DATA Chargement 
DATA Affichage/impression 

DATA ——--- 

DATA FIN,"” 

DATA DONNEES 
DATA Traitement 
DATA Tri 

DATA Recherche/Correction 

DATA- 

DATA Aide (s.o.s.) 

MENU texte$0 
RETURN 


L instruction DAT A pcrmct dc slockcr des valeurs sans grande consommation 
' de place. Ces donndes sont ensuile lues avec READ. La fonction READ 
permettra de lire les donndes contenues dans l’instruction DATA. 


Lcs en-tclcs (ici DESK, FICHIER, DONNEES) figurent dans la barre du 
menu principal en haul dc l’ecran. La chafne vide ("") termine chacun des 
menus ddroulants. Les chiffrcs contenus dans le menu ouvert par DESK 
constituent des reserves de place pour des accessoircs dont le nombre peut 
s’eicver k six. 


La gestion des options est assuree a la fin de la procedure par MENU : 


MENU texte$0 ! reprendre le texte dans le menu 
RETURN 


La proeddure de choix est alors modifiee pour s’adapter aux nouvelles 
conditions. Avant de passer au traitement declenche par le choix de telle ou 
telle option, il faut faire revenir a son etat anterieur le texte qui a ete 
video-inverse : ceci se fait grace a MENU OFF : 


11 -142 


Bien debuter en GFA Basic 





11 -143 


Les menus, les colonnes et les fenetres ... 


PROCEDURE choix 
MENU OFF 


Ce qui permet de passer au traitement de Foption selectionnee : 


choix% = MENU(0) 

SELECT choix% 
CASE 1 
info 

CASE 11 
gerer 
CASE 12 
sauvegarder 
CASE 13 
charger 
CASE 14 
afficher 
CASE 19 
traiter 
CASE 20 
trier 

CASE 21 
rechercher 
CASE 23 
aider 

ENDSELECT 

RETURN 


La variable choix% prend en charge i’indice du point de menu active par lc die 
de fa souris. Ce numdro est trouv6 dans tin tableau MENU propre au GEM, 
qui contient toulcs les informations importantes pour ia gestion dcs menus et 
la manipulation des inscriptions dans les menus. Nous ne nous int£ressons qu’a 
bin scrip lion portde dans MENU(O), qui est le point s£lectionne dans ie menu. 

II faut aussi apporter quelques modifications dans le menu principal: 


REM mini-banque de donn6es en GEM 

i 

options 

ON MENU GOSUB choix 
OPENWO 


La fonction OPENW(no) ouvre la fenetre de numfro (no) 

La fonction OPEN O n’ouvre pas une veritable fenetre, mais deplace 
simplement l’origine des coordonn6es 

La fonction CLOSEW ferme la fenetre de numcro (no) 
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La fonction CLOSEW O permet de revenir a Paffichage normal sur ecran. 

Les options s’affichent d’abord. ON MENU GOSUB ajoute un aiguillage a la 
procedure choix, OPENWO replace l’origine des coordonnees directement 
sous la barre du menu principal, ce qui protege celle-ci contre une 6criture en 
surimpression. 

Cela gere une boucle de repetition. Par laquelle grace a Pinstruction ON 
MENU on demande de surveiller Pintervention des evinements (ici le die de 
la souris sur un des points du menu). Ceci se repete jusqu’a ce que Pon actionne 
la touche droite de la souris ou que Pon selectionne le point FIN a Paide de la 
touche gauche: 


REPEAT 
ON MENU 

UNTIL MOUSEK = 2 OR choix% = 16 


11.3. Listing et folding 


Nous avons maintenant r6uni les mat6riaux essentiels. Vous voulez 
certainement voir si vous avez bien appris le maniement du GEM. C’est 
pourquoi je vous donne ici Pensemble du texte du programme : 


REM mini-banque de donn6es en GEM 
options 

ON MENU GOSUB choix 
OPENWO 
REPEAT 
ON MENU 

UNTIL MOUSEK = 2 OR choix% = 16 

'touche droite de la souris ou point "fin" du menu 

END 


PROCEDURE options 
DIM texte$(50) 

FOR i = 0 TO 24 
READ texte$(i) 
NEXT i 

DATA DESK 
DATA Info 

DATA ---- 

DATA 1,2,3,4,5,6,"“ 
DATA FICHIER 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


Gestion 

Sauvegarde 

Chargement 

Affichage/impression 

FIN/'" 

DONNEES 

Traitement 

Tri 

Recherche/Correction 
Aide (s.o.s.) 


MENU texte$0 
RETURN 

PROCEDURE choix 
MENU OFF 
choix% = MENU(0) 
SELECT choix% 
CASE 1 
info 

CASE 11 
gerer 
CASE 12 

sauvegarder 
CASE 13 
charger 
CASE 14 
afficher 
CASE 19 
traiter 
CASE 20 
trier 

CASE 21 
rechercher 
CASE 23 
aider 

ENDSELECT 

RETURN 


PROCEDURE info 

ALERT 3,"GFA BASIC|Mini-Banque_de_donn6es",1OK legal ",back% 
RETURN 

I 

PROCEDURE gerer 
ALERT 1/'Gestion 11 ,1," OK ",back% 

RETUR 


PROCEDURE sauvegarder 
ALERT 1/’Sauvegarde", 1," OK ”,back% 
RETURN 


PROCEDURE charger 
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ALERT VChargemenf'.l," OK ",back% 

I RETURN 

PROCEDURE afficher 

ALERT l.'Affichage/ImpressionM," OK",back% 
RETURN 

PROCEDURE aider 
ALERT 3,"Aide (a.o.s.JM," OK M ,back% 

RETURN 

PROCEDURE traiter 
ALERT 2, M Traitement ll 1 1 p M OK " 1 back% 

RETURN 

PROCEDURE trier 
ALERT 2 ) "Tri ,, 1 1," OK '\back% 

RETURN 

PROCEDURE rechercher 
ALERT 2,"Recherche/Correction" 1 t p 11 OK M p back% 
RETURN 


Pai modifie un peu la formule des messages d’alarme, voyez vous-meme quel 
effet cela peut avoir. J’espere que ceci vous incite a experimenter par 
vous-meme. 

Folding des procedures 

Comme le texte de notre programme est devenu assezlong, nous allons utiliser 
ici une possibilite offerte par la version 3.0 du GFA Basic: le folding. Placez 
votre curseur sur la ligne PROCEDURE options et appuyez sur la touche 
< Help >. 

Toutes les Hgnes de la procedure ont brusquement disparu, et vous contemplez 
abasourdi ce qui reste, c’est a dire la ligne portant le nom de la procedure. Que 
s’est-il passe ? Que faire apres le signe" >" ? 

Folding signifie replier : le listing a et6 en quelque sorte replie de telle fagon 
qu’on n’apergoit plus que l’en-tete de Li procedure. Amenez de nouveau votre 
curseur dessus et appuyez sur la touche < Help > : vous constatez que tout est 
redevenu comme avant. 

Rep6tez ce processus de folding avec la procedure choix puis, pour vous 
entrainer, avec les autres procedures. II ne vous reste plus qu’une liste des noms 
de procedures: 
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REM mini-banque de donn6es en GEM 
options 

ON MENU GOSUB choix 
OPENWO 
REPEAT 
ON MENU 

UNTIL MOUSEK=2 OR choix% = 16 

'touche droite de la souris ou point "fin" du menu 

END 

I 

I 

> PROCEDURE options 

> PROCEDURE choix 

> PROCEDURE info 

> PROCEDURE gerer 

> PROCEDURE sauvegarder 

> PROCEDURE charger 

> PROCEDURE afficher 

> PROCEDURE aider 

> PROCEDURE traiter 
PROCEDURE trier 
PROCEDURE rechercher 


Voila qui vous aide k y voir plus clair dans les programmes longs. Et lorsque 
vous avezbesoin de savoir ce qui se cache derriere une procedure, il vous suffit 
d’ouvrir Yenveloppe en actionnant la touche < Help >. Lorsque votre curiosite 
est satisfaite, ou que vous avez procede a des modifications, refermez tout 
simplement l’enveloppe en actionnant de nouveau la touche < Help >. 

Si vous sauvegardez le lexte de votre programme dans cet etat, le programme 
prend bonne note des pliures, et, lors d’un chargement ultcrieur, il vous 
reviendra aussi bien pM que lors dc la sauvegarde. 
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11.4. Vous aimez les fenetres ? 


Avant (Ten terminer avec ce chapitre, nous allons prendre connaissance de 
quelques instructions, vous permettant d’ouvrir et de refermer jusqu’a quatre 
fenetres comme dans le GEM. Essayez tout de suite ce programme : 


REM Windowtest GFA V 3.0 

OPENWO 

FOR i&= 1 TO 4 

TITLEW #i&,"fen£tre no. H + STR$(i&) 
INFOW #i&,"ouvrir..." 

OPENW i& 

PAUSE 100 
NEXTi& 

I 

FOR i&= 1 TO 4 
INFOW #i&, M ...et fermer" 

TOPW #i& 

PAUSE 50 
CLOSEWi& 

NEXT i& 

CLOSEWO 

END 


Vous connaissez deja OPENW 0, qui permet d’exclure de la surface utilisable 
de Pdcran la barre de menu GEM. OPENW permet aussi d’ouvrir des fenetres 
semblables a celles que vous connaissez en tant qu’utilisateur du GEM lorsque 
vous voulez voir le contenu d’une disquette. 


Si vous voulez entrer un texte sur la ligne de titre ou la ligne d’information d’une 
fenetre, il faut que vous le fassiez avant d’ouvrir cette fenetre, a Paide des 
instructions TITLEW et INFOW. La pause qui suit ne sert qu’a vous laisser le 
temps de considerer avec satisfaction ces enfantillages. 


L’instruction TITLEW permet de donner un nouveau titre a la fenetre numdro 
n pour la version 2.0. 


Dans la version 3.0, TITLEW[#]no,n$ a une autre definition. Cette fonction 
ecrit le texte A$ dans la ligne la plus haute de la fenetre. 


L’instruction INFOW transmet a la fenetre numdro n la nouvelle ligne 
d’information. 


La deuxidme partie du programme sert a reactiver cette fenetre grace a TOPW, 
qui n’existe pas dans le GFA Basic 2.0. II serait possible d’ajouter encore un 
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Les menus , les colonnes et lesfenetres ... 


OPENW avec un texte ^information different. Aprfcs une pause pour le moins 
creative, on pourrait la fermer de nouveau par CLOSEW. 


A la fin, fecran reprend sa taille normale, et le spectacle GEM est termine. 
Dans la version 2.0, n’ecrivez pas le signe suivant TITLEW et INFOW. Votre 
programme aura failure suivante : 


REM Windowtest GFA V 2.0 
OPENW 0 
FOR i% = 1 TO 4 

TITLEW i%,"fendtre no. M + STR$(i%) 
INFOW i'Vouvrir..." 

OPENW i% 

PAUSE 50 
NEXT i% 

FOR i% = 1 TO 4 

INFOW termer" 

OPENW i% 

PAUSE 50 
CLOSEW i% 

NEXT i% 

CLOSEW 0 
END 


Jc voudrais ici vous signaler que tc nouveau GFA Basic contient une foulc 
d'instructions et de fonctions vous pcrmettant de realiscr des projets trcs 
elaborcs et complexes avec le GEM* Toutcfois, si vous voulez exploiter 
correctement cet ensemble dc routines, il faut auparavant que vous connaissicz 
parfaitement les structures du GEM ainsi que le langage-sysfeme de votre Atari 
ST. Je vous renvoie done k des ou wages plus approfondis sur le GFA et le 
GEM. Vous pouvez aussi explorer la disqueltc GFA, qui contient des listings 
de ddmonstraiion conccrnant egalcment la programmation GEM. 


Fesperevous avoir incite k f experimentation concrete, mats vous ne devez pas 
attendre plus d’aidc de ma part, car ceci dfipasserait largemcnt les limites dc 
cet Guvrage destind aux debutants* Jc me borne & vous donner un dcrnici 
conseil: cominc vous risquez fort de vous tromper lors de vos essais dans le 
GEM, vous devez absolument avant ioute chose sauvegarder votre programme 
sur une disquette. 
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11.5. Resume 


Ce chapitre ctait un peu plus court que les precedents. Mais il vous a permis 
d’entrer plus avant dans les mysteres du GEM. 

Aprfcs avoir dimensionn£ un tableau sul'fisammcnt grand pour votre texte, vous 
le Iransmettez au gesdonnaire GEM grace k "MENU tablcau$0". Dans les 
menus diroulants, e’est le lexte saisi en tout premier qui servira d’en-tele dans 
la barre dc menu. La suite des chains doit se terminer par une chamc vide ( 11M ). 

Apr6s l’affichage des options sur F6cran, ON MENU GOSUB <procedure> 
vous permet de creer un interrupteur qui vous amenc dans une procedure de 
choix si vous cliquez sur Tun des points du menu. 

ON MENU engendre une boucle interrogeant le statut de la souris : en 
appuyant la touche gauche, vous choisissez une option et en appuyant sur la 
touche droite (MOUSEK = 2) vous sortez du programme. 

Des que vous avez s61ectionn6 un point du menu grace a la touche gauche, le 
texte apparait en inversion-video, et MENU OFF le ramene a son etat normal. 

MENU(O) contient Findice du point du menu qui a et6 active. Apr6s avoir 6te 
attribu6 k une variable, choix% est mis en oeuvre et conduit k la procedure 
concernee. 

Vous vous souvenez queOPENWO permet de retrancher la barre de menu de 
la surface utilisable dans Fecran. Vous pouvez grace k : 


OPENW n 


ouvrir et actualiser une tenure 

CLOSEWn 


termer une fenStre 

TITLEW #n 

(v 3.0) 

donner un texte 4 la ligne de titre 

INFOW #n 

(v 3.0) 

donner un texte k la ligne d’information 

TOPW #n 

(v 3.0) 

actualiser une tenure 

TITLEW n 

(v 2.0) 

donner un texte k la ligne de texte 

INFOW n 

(v 2.0) 

donner un texte k la ligne d’information 


Et n’oubliez pas que vous pouvez ouvrir au maximum quatre fenetres. 
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Collecte des donnees 


Chapitre 12 


Collecte ’ 

' ^ V' ' - SMS - r'r[ 


\Tons voila equipe de votre programme qui tourne sans probleme, et ne 
* comporte aucune faute de syntaxe. Cependant, il n’en sort rien. Cela 
ressemble a un restaurant qui n’est pas encore ouvert: sa carte des menus est 
bien imprimee et suspendue a l’entree, mais qa ne vous donne pas encore a 
manger! 

II serait temps de nous tourner vers la confection des mets. II faut d’abord 
penser aux ingredients. Pour gerer et traiter des donnees, il nous faut quelques 
accessoires, dont nous allons parler dans ce chapitre. 


12.1. Une banque sans donnees 


Lorsqu’on parle de banque, on pense a un endroit sur pour conserver des 
valeurs. Une banque de donnees serait done un endroit ou Pon rassemblerait 
et conserverait des donnees. Selon moi, un programme charge de gerer ces 
donndes devrait etre congu pour les proteger. Notre point de collecte est la 
disquette ; meme si vous travaillez avec un disque dur, la disquette doit etre 
votre outil de sauvegarde abritant vos donnees en toute surete. 

Comme nous ne pouvons pas entrer nos donnees plus ou moins en vrac sur une 
disquette, nous devons tout d’abord nous fabriquer un classeur, un fichier ou 
quelque chose de semblable. Nous devons nous soucier d’avoir integr6 dans 
notre programme un tableau d’espaces-memoire assez grand pour y faire 
entrer nos donnees. 

Mettons-nous d’accord sur une valeur maximale encore assez petite, car 
quelques donnees peu nombreuses suffiront pour tester un programme, et nous 
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epargnerons du temps en travaillant sur de petits ensembles de donnees. Plus 
tard, vous modifierez cette valeur en fonction de vos besoins. 


DIM fiche$(9) 


Nous avons ainsi reserve un tableau pour 9 chaines de caracteres. Je pense 
qu’en fait vous aurcz besoin dc plus d*une ligne ou d’une chaine par fichier ou 
par fiche, si bien que notre definition ne suffit pas, car elle ne reserve qu’une 
chaine par unite do don tides* fc GFA Basic admet des chaines de caracteres 
si longues qu'elles peuvent occupcr plusieurs ecrans. De telles chaines seraient 
bien difficiles a maft riser, ct nous disposons tout de meme de possibilites plus 
confortables. 

Les donnees peuvent etre de nature tres differentes: il serait done souhaitable 
de differencier les tableaux predefinis. Prenons l’exemple d’un fichier de 
personnes. 

II nous faut au moins le nom, le prenom et Padresse; selon l’utilisation, on peut 
y ajouter les renseignements suivants : 

telephone, sexe, age, profession, curiculum vitae, situation familiale, scolarite, 
situation financiere, activites politiques ou associatives, easier judiciaire, etat 
de sante etc. 

Vous constatez qu’il n’y a aucune limite a la variete possible des types de 
donnees ! Limitons-nous a DIMensionner 


Nom et Pr6nom 
Rue et num§ro 

Code postal et bureau distributee 
T§16phone avec son indicatif. 


Grace a: 


DIM personne$(9,4) 


nous pourrions (cn comptant a parlir dc 1) enregistrer 9 personnes, en 
reunissant sur unc m£mc ligne, lc nom ct lc prenom, la rue et le numero 
d’habitation, le code postal et le bureau distributee, lc telephone et son 
indicatif Vous prdfcrcricz sans doulc un autre deonipagc: 


max% = 9 

DIM nom$(max%),rue$(max%) 

DIM adresse$(max%),telepfrone$(max%) 
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Dans ce cas, il est prdferable d’attribuer une valeur maximale a une seule 
variable: si par la suite, vous voulez modifier la valeur de max% il vous suffira 
de modifier une seule valeur. 

Il y a deux fagons differentes de repartir la definition des donnees. Soit en 
reunissant toutes les donnees possibles dans un seul tableau meme si elles sont 
de dimensions differentes. Soit en les repartissant de fagon differenciee dans 
autant de tableaux qu’il y a de types de donnees differentes. 

L’utilisateur d’un tel programme est en principe indifferent a la fagon dont ses 
donnees sont organisees et gerees par le systeme interne. Il n’en va pas de meme 
du programmeur, vous, qui voudrait fabriquer un programme clair et sans 
faute. 

Admettons quo nous voulons fabriquer un classeur ou un fiehier contenant 9 
fiches, ce qui nous suffira pour notre excmple : vous pourrez plus tard 
augmcnter k voionld ces dimensions. Dans un premier cas, nous aurions pour 
ainsi dire un scut fiehier avec dcs rayonnages qui contiendraient toutes les 
fiches: 


DIM personne$(9,4) 


Lors des tris ou des corrections, tout resterait ensemble, puisque toute 
procedure serait applicable a Tensemble du fiehier. L’ecriture du programme 
d’entree et de sortie de donnees necessiterait certes une double boucle, mais 
la partie consacree aux instructions serait courte : 


REM tout en un 
DIM personne$(9,4) 

FOR i% = 1 TO 9 
FOR j% = 1 TO 4 

INPUT M noticesJndividuelles M ;personne$(i%j%) 
PRINT personne$(i%,j%) 

NEXT j% 

NEXT \% 

END 


Dans le deuxieme cas, nous aurons par contre plusieurs classeurs, plusieurs 
fichiers: 


max% = 9 
DIM nom$(max%) 

DIM rue$(max%) 

DIM adresse$(max%) 
DIM telephone$(max%) 
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Ceux-ci peuvent se ranger dans une seule armoire ou etre disperses dans la 
pidce, leur ordre n’est pas encore indiqu6. Lors des corrections et des tris, il 
faudra faire attention a ne pas tout melanger, car les traitements devront 
intervenir dans tous les classeurs k la fois! Pour Pentr6e et la sortie des donnees, 
il faudra une longue suite ^instructions meme si elle ne necessite qu’une seule 
boucle: 


REM chacun pour soi 
max% = 9 

DIM nom$(max%) p rue$(max%) 

DIM adresse$(max%),telephone$(max%) 

t 

FOR i% = 1 TO 9 

INPUT "Norn et Pr6nom : l, 1 nom$(i%) 

PRINT nom$(i%) 

INPUT "Rue et num6ro : ",rue$(i%) 

PRINT rue$(i%) 

INPUT "Code postal et bureau distributeur: M ,adresse$(i%) 
PRINT adresse$(i%) 

INPUT "T6l6phone avec indicatif: M ,telephone$(i%) 

PRINT telephone$(i%) 

NEXT i% 

END 


12.2. Abondance de donnees ? 


La premiere methode, consistant a tout reunir dans un seul fichier, parait 
meilleure que la deuxieme. Elle semble plus maniable, le programme est plus 
court. Mais avec Paugmentation et la differenciation croissantes des donnees, 
ce gros fichier va devenir impraticable. 

Imaginez un peu tous les renseignements varies que vous pouvez avoir a reunir, 
et en plus au sujet de milliers d’individus, contenus dans un seul immense 
classeur ! 

Apres Pinstruction INPUT, le critere d’interrogation notices individuelles ne 
vous est pas d’un grand secours, et si vous voulez subdiviser ce critere, les deux 
variantes du programmes ne seront plus tellement differentes Pune de Pautre: 


REM chacun le sien 
DIM personne$(9,4) 

FOR i% = 1 TO 9 

INPUT "Nom et Pr6nom : M ,personne$(i%,1) 
PRINT personne$(i%,1) 
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INPUT "Rue et num6ro : M ,personne$(i%,2) 

PRINT personne$(i%,2) 

INPUT "Code postal et bureau distributeur: ",personne$(i%,3) 
PRINT personne$(i%,3) 

INPUT "T6l6phone avec indicatif: ",personne$(i%,4) 

PRINT personne$(i%,4) 

NEXTi% 

END 


Tout est naturellement bien range maintenant, et chaque donnee est accessible 
separement. Mais toutes ces donnees -pourtant si differentes Tune de l’autre- 
restent coiffees par un seul chapeau (personne$). Si bien que pour distinguer 
entre les donnees, vous avez besoin de notes complementaires, que vous pouvez 
consigner h la main sur unc feuilie de papier laissee a cote de votre ordinateur. 
Vous pouvez ausst intdgrer dans voire programme quelques commentates, ce 
qui accroit parfois considdrablcmcnt la longueur du texte. 

Ces commentates sont superflus si, dans le cas ideal, toutes les constantes, 
variables et proc6dures portent des noms suffisamment significatifs, ne 
necessitant que des commentates lr£s brefs. En tanl que progranuneur, vous 
pourrez lire et comprendre un tel programme memc longtcmps apr&s son 
ecriture, et il sera comprehensible facilemcni par d’autres programmers. 

II nous resterait done la deuxi£me variante pour emballer nos donnees, e’est a 
dire fabriquer plusieurs paths classeurs, porianf cliacun un norm Si on rapporte 
ccla a notre exemple de renscignemcnts sur des individus, il nous faudrait un 
classeur pour les noms et pr£noms, un pour les adresses, bref il nous faudrait 
un classcur pour chaquc type de donnees. Lorsqtic vous devrez effaeer ou 
modifier des dormdes sur une personae, il vous faudra fairc attention a bien 
reporter toutes les modifications dans chacun des classeurs. 

Visiblement, aucune des deux solutions n’est pleinement satisfaisante. Que 
pensez-vous du programme suivant: 


RECORD personne$ 
nom$(max%) 
rue$(max%) 
adresse$(max%) 
telephone$(max%) 
ENDRECORD 


Dans le cas de ce fichier defini par RECORDpersonne$ nous avons de nouveau 
affaire a un seul grand meuble, comme auparavant avec DIMpersonne$. Mais 
ce meuble n’est plus equipe seulement de rayonnages pour abritcr les donnees, 
il comporte des tiroirs etiquetes qui n’ont pas forcement les mcmes dimensions. 
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Vue de l’exterieur, la structure de RECORD est de type ferme : lors des tris 
ou des corrections, rien ne peut s'echapper ou se melanger, avantage qu’avait 
deja notre grand classeur unique ci-dessus, mais pas notre multitude de petits 
classeurs de la deuxieme variante. Comme les classeurs, nos tiroirs sont 
etiquetes et offrent une vue d’ensemble claire pour le programmeur. On peut 
intervenir sur ses composants par: 


personne$.nom$(i%) 

personne$.rue$(i%) 

personne$.adresse$(i%) 

personne$.telephone$(i%) 


Cela vous plait ? C’est bien dommage car voila une cruelle deception pour 
vous : le GFA Basic (meme dans sa version 3.0) ne vous offre pas cette 
possibilitd d’dcriture. Je n’ai fait que Pcmprunicr au Pascal et r adapter au Basic 
par de Idgeres modifications. Pour mot, Pimpossibilile de r£unir en une seule 
structure des donndes dc type different reste unc faiblcsse du GFA Basic, 
pourtant si riche par ailleurs. 

II nous faut bien nous accommoder de ce petit defaut, et convenir d’une 
definition des le debut du programme principal, que vous pourrez bien sur 
etendre ou raccourcir selon vos besoins : 


REM mini banque de donnees 
max% = 9 

i 

DIM nom$(max%) 

DIM rue$(max%) 

DIM adresse$(max%) 

DIM telephone$(max%) 

no% = 0 

' autres instructions 
END 

1 definitions des procedures 


Nous utilisons, comme compteur des fiches de donnees, une variable globale 
"no%" (semblable a "choix$"). Comme "max%", elle se compose d’un nombre 
entier, et vous permet de numeroter jusqu ? a deux millions de fiches, ce qui 
devrait tout de meme vous suffire. Au tout debut, nous lui donnons la valeur 
"0", ce qui revient a dire il n’y a pas defichier ici ou toutes les fiches sont vides . 
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12.3. Enregistrer! 


Nous avons ddjit vu et revu comment on entre oil sort des donnees simples, par 
exemple des chiffres, des mots, des phrases, bref du texte. Ici, il s’agit de grandes 
masses de don tides, qui peuvent avoir une structure plus ou moins complexe. 

Naturellement, vous avez bien raison de penser que nous pourrions nous en 
tirer avec les instructions habituelles INPUT et PRINT. Je pense que vous serez 
d’accord avec moi po ur dire que nous devrions mettre au poinl not re propre 
programme de regulation des do nodes. Presqu’aucun programme - qu’il soil 
utilitaireou dejeu -ne peut se passer d’une procedure pour Pentree et la sortie 
des donndes, mats la t'agon de s’y prendre est irds differente selon le but 
recherche: 

Par exemple, dans un programme de traitemenl de texte, la saisie du texte et 
son affiehage a I’dcran sont dlroitement lids, car on veut non seulemenl voir au 
fur et a mesure ce que I’on dactylographic, mais aussi rappclcr les textes deja 
saisis pour les modifier - raj outer un mot ici, en cffaccr un autre 1&. 

Pour les jeux, f’entrde et ia sortie forment une memo unitd indissociable : 
chaquc mouvement de la manette dejeu (= entrde) csl affiche immediatement 
a Pdcran ( = sortie), Dans les jeux d’aventures, 1’entree et la sortie rcsscmblcnt 
plus a une sorte de jeu question/rdponsc ; une mdlhode utilisant different® 
programmes utilitaires. Vous constatcricz qu’il est bien rare que la saisie soil 
intdressante si clle est dissocide de l’ecran, surlout si votre saisie par les touches 
du clavier ne s’affichait brusquement plus au fur et a mesure sur votre ecran. 

Venons-en enfin a l’ecriture d’un programme pour la saisie de nos donndes. 
Tout d’abord, remplagons les differents points de la proeddure de choix par 
l’appel de la procedure enregistrer: 

Cette derniere va remplacer notre procedure Traiter. 


PROCEDURE choix ! version-BOX 
SELECT choix$ 

CASE ,I 6 ,, I ,, T M 
enregistrer 

RETURN 
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ou encore 


PROCEDURE choix ! version-GEM 
SELECT choix% 

CASE 19 
enregistrer 

RETURN 


Nous reviendrons plus loin sur la procedure traitement ! Vous vous y risquez 
seul, ou vous preferez d’abord jeter un coup d’oeil sur la routine ? 


PROCEDURE enregistrer 
CLS 
coi&=4 

LOCATE col&,5 

INPUT "Nom : M ,nom$(no%) 

LOCATE col&,7 

INPUT "Rue : ",rue$(no%) 

LOCATE col&,9 
INPUT "Adresse : ",adresse$(no%) 
LOCATE col&,11 
INPUT "T6l6phone:",telephone$(no%) 
RETURN 


Si vous ne disposez que de la version 2.0 du GFA Basic, il faut remplacer toutes 
les instructions LOCATE <ligne>,<colonne> par PRINT AT 
( < colonne >, < ligne > et tous les & par %. 

Nous nous permettons ici l’usage d’une nouvelle variable coISl pour notre 
procedure enregistre, differente de pos& qui est reservee au menu. Pour la 
saisie, il nous manque encore une boucle, car il faut tenir compte des conditions 
suivantes lors de Penregistrement des donnees et de leur repetition possible: 

a. on peut au plus entrer max% de donn6es 

b. on doit pouvoir interrompre la saisie a volonte. 

Essayez maintenant sans l’aide de ce manuel de formuler ces conditions en 
GFA Basic et de les inserer dans la boucle qui vous semble la plus appropriee. 
Vous ne lirez la solution qu’apres avoir fini: 


PROCEDURE enregistrer 
LOCAL clavier$ 
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col&=4 

CLS 

WHILE clavier$< >CHR$(27) AND no%<max% 
CLS 

INC no% 

LOCATE col&,5 

INPUT M Nom : M ,nom$(no%) 

LOCATE col&,7 

INPUT "Rue : M ,rue$(no%) 

LOCATE col&,9 

INPUT "Adresse : ",adresse$(no%) 
LOCATE col&,11 
INPUT "T6l6phone:",teIephone$(no%) 
LOCATE col&,13 

PRINT "< Esc> FIN <sinon> continuer" 
REPEAT 

clavier$ = INKEY$ 

UNTIL clavier$ <> 1111 

WEND 

RETURN 


Toutes les fiches sur lesquelles on va ecrire sont comptabilisees a l’interieur de 
la boucle grace a: 


INC no% 


Cette incrementation ainsi que le bloc de saisie qui suit, sont repetes jusqu’a 
ce que la touche < ESC > soit actionnde : 


clavier$ < >CHR$(27) 


(il faut pouvoir interrompre la saisie a n’importe quel moment) et aussi 
longtemps qu’il reste des fiches disponibles : 


no%<max% 


(on peut entrer au maximum max% de donnees). 

Je pense que le test k la fin de la boucle n’est pas tres satisfaisant: si toutes les 
fiches de votre fichier sont remplies, et que vous lancez tout de meme la 
procedure, enregistrer en tentant d’entrer des donnees, Pinterpreteur GFA va 
vous repondre par le message index de champ trop grand . 

D J ailleurs, si vous voulez demander le nombre d’eiements du tableau en cours 
d’ecriture contenus dans votre programme, vous devez utiliser Pinstruction 
DIM ? par exemple DIM ?(telephone$()), ce qui vous permettra de savoir 
combien d’eiements le numero de telephone occupe . 
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12.4. Resume 


Vous avez du avaler pas mal de theorie dans ce chapitre sans apprendre 
vraiment beaucoup de choses nouvelles. Vous en savez un peu plus sur les 
structures des donnees. Vous vous souvenez aussi qu’en GFA Basic vous 
pouvez ddclarer des tableaux simples ou a plusieurs dimensions (arrays) grace 
& 


DIM <nom> (indice1,indice2...). 


Vous obtenez le nombre total des 6I6ments du tableau par 


DIM ?(<nom> 0)- 


Et vous devez vous accommoder du fait qu’en GFA Basic 3.0, il n’existe pas de 
variable RECORD contrairement au Pascal. 
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Manipulation de donnees apres formatage 


Chapitre 13 




V otrc banque esl ouverte, on pent y faire les premiers versements. Mais vous 
n’avez pas encore de formula ires pour cola- II nous faut done pour ia 
representation dc nos donnees, elaborcr un formal ressemblant & unc fiche, 
que nous pourrions aussi utiHser pour les sorties de dowries ; nous aUons 
maintenant nous en occuper. 


13.1. II nous faut un formulaire 


Pour mettre nos donnees en forme, nous pouvons d’une part recourir aux 
instructions BOX ou RBOX. D’autre part, nous pourrions ecrire une 
procedure reprenanl tout ic texte des noms des champs du fichier sous forme 
de formulaire, ce qui nous aiderait pour l’entrde des donn6es : 


PROCEDURE formulaire 
LOCAL form& 

form&=4 

PRINT AT(form&,7);"Nom, Pr6nom 

PRINT AT(form&,11);"Rue. 

PRINT AT (form &, 15); "Adresse. 
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PRINT AT (form &, 19); "T6l6phone, 
RETURN 


Un peu penible, non ? Nous n’aurions pas du reprendre cela de la procedure 
d’enregistrement, car il va nous falloir ajouter une procedure pour Paffichage, 
pour lequel nous aurons de plus besoin d’un formulaire! Vous avez bien raison, 
cette procedure est trop succincte, nous allons y ajouter des choses. 

Fixons-nous d’emblee comme but d’ecrire une procedure formulaire assez 
complete pour pouvoir servir dans d’autres programmes. Le texte dans sa 
forme concrete ne devrait done pas figurer a Pinterieur de la procedure mais 
lui etre transmis du dehors comme une variable. Comment faire cela ? 
Bricolons d’abord une routine de test, et nous verrons plus tard comment 
Pintegrer dans notre mini-banque de donn6es : 


REM testformulaire 
DIM textform$(4) 

FOR i&= 1 TO 4 
READ textform$(i&) 

NEXT i& 

DATA Nom et Pr6nom.Rue... 

DATA Adresse.Telephone 


Nous avons maintenant un tableau rempli avec le texte a afficher. Nous pouvons 
ensuite appeler la procedure formulaire apres Pavoir adaptde en consequence: 


PROCEDURE formulaire 
LOCAL form&,i& 

LOCAL debut& 

form& = 4 
debut& = 7 
FOR i&= 1 TO 4 

PRINT AT(form& J debut&);textform$(i&) 
ADD debut&,4 
NEXT i& 

RETURN 


La procedure vous plait maintenatit ? Vous voyez que le curseur est replace a 
chaque fois dans une boucle de comptage et qu’un nouvel element du tableau 
textform$ est affiche a chaque fois. Ceci ne fonctionne dans notre exemple qu’& 
partir d’une position de debut definie et pour quatre elements. Nous pourrions 
rendre la procedure plus complete en incluant la position debut& et le nombre 
des elements dans les parametres a transmettre : 
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PROCEDURE formulaire(debut& p nombre&) 
LOCAL form&,i& 

LOCAL pas& 

form&=4 

pas&= (24-debut&) DIV (nombre&-1) 

FOR i&= 1 TO nombre& 

PRINT AT(form&,debut&);textform$(i&) 
ADD debut&,pas& 

NEXT i& 

RETURN 


13.2. La forme et le contenu 


Nous touchons un peu aux mathematiques, comme le montre la ligne 


pas&= (24-debut&) DIV (nombre&-1) 


Pour ddterminer l’6cart entre les lignes de texte a afficher - le pas - il faut 
d’abord calculer combien il nous reste de lignes a Tecran pour l’affichage : 


24-deb ut& 


En admettant qu’on transmetle pour debut& une valeur autorisfie, il nous 
rcsterait au maximum 23 lignes apriis la ligne du debut. Dans la premiere ligne 
utilisable viennent s’^crire les premieres donnees saisies. 11 nous reste alors 
nombre&-l lignes de texte, & rtipartir sur le reste de l’6cran: pas& doit etrc un 
nombrc entier arrondi, d’oCi I’utilitfi de I’operatcur DIV. Comme il est inlerdit 
de diviser par zfiro, nombrc& ne pcut avoir la valeur 1, ce qui n’est pas grave 
pour (’utilisation de not re procedure formal aire. Mais il reste a savoir s’il nous 
faudra une procedure spdeiale pour afficher uniquement une ligne de texte ! 


Vous pouvez rendre votre proccdurc-formulaire absolument sure en faisant 
tester au d£but de la procedure tous les parametres interdits et en les 
transformant en la valeur autorisee la plus approchante. Je n’insisterai pas plus 
la-dessus, et je vous laisse le soin de terminer ce travail. 


L’autre possibility consistent a integrer directement dans la procedure 
l’instruction READ, ce qui rendrait superflue la declaration du tableau 
textform$ dans le programme principal: 
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PROCEDURE formulaire(debut& I nombre&) ! READ 
LOCAL form&,i& 

LOCAL pas& 

1 

form&=4 

pas&= (24-debut&) DIV (nombre&-1) 

FOR i&= 1 TO nombre& 

READ textform$ 

PRINT AT(form&,debut&);textform$(i&) 

ADD debut&,pas& 

NEXT i& 

RESTORE 

RETURN 


Cela vous plait peut-etre plus ? Naturellement, il faut que les lignes DATA 
correspondantes existent bien. Pour le cas ou vous voudriez utiliser plusieurs 
fois la procedure-formulaire dans votre programme, il faut que le pointeur 
DATA qui se trouve a la fin de la derniere ligne DATA apres la lecture 
provoqu6e par READ, soit replace au debut de la premiere ligne grace a 
Finstruction RESTORE. 

Si vous voulez integrer sous cette forme la procedure dans un programme 
contenant plusieurs instructions DATA, il vous faut de plus, caracteriser 
chaque bloc DATA en lui attribuant une marque (label). Le pointeur utilise 
pour la procedur eformulaire peut alors retrouver le debut du premier element 
par RESTORE < marque >. Sinon il se retrouvera toujours devant la premiere 
ligne DATA qu’il rencontrera a partir du debut du programme. 

La commande RESTORE devrait de plus figurer tout au debut, avant 
Pinstruction READ, afin de pouvoir lire immediatement k partir du bon 
endroit. En resum6, vous obtiendrez le programme suivant, dans lequel 
naturellement les procddures et les lignes DATA peuvent se trouver a 
differents endroits: 


PROCEDURE formulaire(debut&,nombre&) ! READ marque 
LOCAL form&,i& 

LOCAL pas& 

RESTORE textform 
form& = 4 

pas&= (24-debut&) DIV (nombre&-1) 

FOR i&= 1 TO nombre& 

READ textform$(i&) 

PRINT AT(form&,debut&);textform$(i&) 

ADD debut&,pas& 

NEXT i& 

v 

TEXTFORM : 

DATA Nom et Pr6nom ..... Rue. 


13 -164 


Bien debuter en GFA Basic 







13 -165 

Manipulation de donnees apris formatage 






DATAAdresse. 

RETURN 

.T6l6phone.. 



Naturellement, votre oeil pergant a tout de suite remarqu6 que j’ai glisse 
la-dedans une virgule de plus, ce qui me donne 5 616ments DATA, le dernier 
etant un dummy (un clement pour rien), car sinon la presentation avec les 
cadres suivants ne serait plus si jolie, ce qui serait bicn dommage, non ? 

Attention, modifiez la declaration du tableau textform$ par DIM textform$(5) 


13.3. L’entree des donnees... 


D6cidez-vous pour l’une ou l’autre version, car nous allons continuer avec 
1’insertion de cette procedure formulaire dans la routine de saisie des dorinees 
qui doit elle aussi recevoir un petit cadre : 


PROCEDURE enregistrer 
LOCAL i& 

LOCAL clavier$ 


' masque de saisie 
CLS 

RBOX 8,60,631,340 
RBOX 8,8,631,40 
RBOX 8,344,631,375 
FOR i&=5 TO 17 STEP 4 
RBOX 16,16*i&,623,16*i& + 48 
NEXTi& 


Ibord de la fiche 
!en-t§te 

ibas de la fiche 
ltextform$ 


' saisie des donnees 
col&=25 

WHILE clavier$ < > CHR$(27) AND no% < max% 

INC no% 

PRINT AT(4,2);“fiche no ";no% 
formulaire (7,5) 

LOCATE col&,7 
INPUT "",nom$(no%) 

LOCATE col&,11 
INPUT "",rue$(no%) 

LOCATE col&, 15 
INPUT "",adresse$(no%) 

LOCATE col&,19 
INPUT " u ,telephone$(no%) 

PRINT AT(4,23);“<Esc> FIN <sinon> continuer"; 
REPEAT 

clavier$ = INKEY$ 

UNTIL claviers <>"“ 
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I WEND 
| RETURN 


Vous pouvez maintenant enregistrer vos premieres donnees, pour que votre 
banque ne soit plus aussi vide. Vous ne semblez toujours pas tres heureux: k 
chaque fois que vous changez de fiche, vous conservez a T6cran les jolis petits 
cadres mais h61as aussi toutes les donnees que vous venez de saisir sur la fiche 
precedente. Nous nous attendions a recevoir de nouvelles fiches toute neuves , 
et nous nous retrouvons avec des fiches deja ecrites qu’il faut raturer, ce qui 
est pire que tout! 

La plus radicale des solutions consisterait a provoquer, avant la reprise du 
masque de saisie, l’effacement complet de l’ecran et l’appel d’un nouveau 
masque. Mais ceci vous ferait perdre du temps. II est beaucoup plus elegant de 
ne vider que les zones a completer en gardant le masque, ce que fera votre 
procddure formulaire si nous la modifions un peu: 


PROCEDURE formulaire(debut&,nombre&) 

LOCAL form&,i& 

LOCAL pas&,rest& 

RESTORE textform 
form& = 4 

pas&= (24-debut&) DIV (nombre&-1) 

FOR i&= 1 TO nombre& 

READ textform$(i&) 
rest&=50-LEN (textf orm$) 

PRINT AT(form&,debut&);textform$(i&);SPACE$(rest&) 
ADD d£but&,pas& 

NEXT i& 

textform : 

DATA Nom et Pr6nom.Rue. 

DATA Adresse.,T6l6phone.. 

RETURN 


Nous avons ajout6 la variable reside : si on prend 50 caractdres comme longueur 
de ligne, il nous reste apres Paffichage de textform $: 


rest& = 50-LEN(textform$) 


La fonction SPACES va remplir ce reside d'espaces vides, ce qui gommera tout 
ce qui etait inscrit a cet endroit auparavant. Naturellement la gomme ne 
fonctionne que pour P6cran, votre ordinateur lui n'oubliera pas les donnees 
entries. 
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Vous avez peut-etrc remarqud la gestion geniale de la Ligne debas de fiche, qui 
disparail durant la saisie des donn6es, et r£apparaft pour vous signaler qu’une 
fiche est remplie. Vous pouvez enfin jouertivee des fiches propres et entrer vos 
donndes sans probleme. 


Nous allons profiter de cette fin de section pour vous donner le listage complet 
de notre programme r6alis6 jusqu’ici. 


REM NIMI-BANQUE DE DONNIES 
DIM textform$(5) 

v 

' FOR i&= 1 TO 4 
' READ textform$(i&) 

’ NEXT i& 


max% = 9 

I 

DIM nom$(max%) 

DIM rue$(max%) 

DIM adresse$(max%) 

DIM telephone$(max%) 

no% = 0 
options 

BOX 88,42,528,328 
BOX 96,50,320,92 
BOX 320,50,520,92 
BOX 96,100,320,220 
BOX 320,100,520,220 
BOX 96,228,320,268 
BOX 320,228,520,268 
BOX 88,292,528,328 
REPEAT 
choix 

UNTIL choix$ = "0" OR choix$ = CHR$(27) 

PROCEDURE options 
pos&= 15 

PRINT AT(23,5);"FICHIER" 

PRINT AT(50,5);"DONNEES" 

PRINT AT(pos&,8);"1. Gestion" 

PRINT AT(43,8);"6. Enregistrement" 

PRINT AT(pos&,10);"2. Sauvegarde" 

PRINT AT(43,10);"7. trl" 

PRINT AT(pos&,11);"3. Chargement" 

PRINT AT(43,11);"8. Recherctie/Remplace" 

PRINT ATipos&.IS);'^. Affichage/lmpresslon" 

PRINT AT(pos&,16);"5. aide(s.0.s)‘' 

PRINT AT(43,16);"0. Fin" 

PRINT AT(pos&+8,20);" -appuyez sur une touche S.V.P-" 
RETURN 
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PROCEDURE choix 
REPEAT 

choix$ = UPPERS (I NKEY$) 

UNTIL choix$o HM 
SELECT choix$ 

CASE "0",27 
REM VIDE 
CASE "I'V'G" 
gerer 

CASE "2","S" 
sauvegarder 
CASE "3" J ,I C" 
charger 
CASE "4","A" 
afficher 
CASE "S'V'O" 
aider 

CASE l, 6" l , T l 
enregistrer 
CASE "7" l l, r * 
trier 

CASE "ff'/'R" 
rechercher 
DEFAULT 
choix 

ENDSELECT 

RETURN 

f 

PROCEDURE gerer 
ALERT Vgestion'W OK M ,back% 

RETURN 

i 

PROCEDURE sauvegarder 
ALERT Veauvegarde",!," OK M ,back% 

RETURN 

i 

PROCEDURE charger 
ALERT V'chargement",!," OK ",back% 

RETURN 

PROCEDURE afficher 

ALERT 1,"affichage/impres$ion",1 ( " OK M ,back% 
RETURN 

PROCEDURE aider 
ALERT 3,"aide (S.O.S)",1," OK M ,back% 

RETURN 

PROCEDURE enregistrer 
LOCAL i& 

LOCAL clavier$ 

1 masque de saisie 
CLS 

RBOX 8,60,631,340 
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RBOX 8,8,631,40 
RBOX 8,344,631,375 
FOR i&=5 TO 17 STEP 4 
RBOX 16,16*i&,623,16*i&+48 
NEXT i& 

’ saisie des donnees 
COl& = 25 

WHILE clavier$ < >CHR$(27) AND no%<max% 

INC no% 

PRINT AT(4,2);'1iche no ";no% 
formulaire(7,5) 

LOCATE col&,7 
INPUT ,, ",nom$(no%) 

LOCATE col&,11 
INPUT "",rue$(no%) 

LOCATE col&,15 
INPUT ,M, ,adresse$(no%) 

LOCATE col&,19 
INPUT ,, ",telephone$(no%) 

PRINT AT(4,23);" < ESC > FIN <sinon> continuer" 
REPEAT 

clavier$ = INKEY$ 

UNTILclavierS< 

WEND 

RETURN 

PROCEDURE trier 
ALERT 2,"Trier", 1," OK ",back% 

RETURN 

t 

PROCEDURE rechercher 
ALERT 2, ,l recherche/correction ll 1 1,' 1 OK M ,back% 

RETURN 

PROCEDURE formulaire(debut&,nombre&) 

LOCAL form&,i& 

LOCAL pas&,rest& 

RESTORE textform 
form&=4 

pas&= (24-debut&) DIV (nombre&-1) 

FOR i&= 1 TO nombre& 

READ textform$(i&) 
rest&=50-LEN (textform$) 

PRINT AT(form&,debut&);textform$(i8L);SPACE$(rest&) 
ADD debut&,pas& 

NEXT i& 
textform: 

DATA Nom et Pr6nom.Rue. 

DATA Adresse.,T6l6phone.. 

RETURN 
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13.4.... et la sortie des donnees 


Vous n’etes toujours pas content ? Vous avez certainement commis des fautes 
en saisissant les donn6es, et vous voila fach6 de ne pas pouvoir les corriger. Une 
procedure de correction serait bien utile, non ? Prenez un peu patience, vous 
n’en etes qu’4 la phase de test: il est a ce stade peu important pour Pordinateur 
comme poiu* votre programme que vous ayez commis quelques erreurs de 
saisie! 

Je pense qu’il est beaucoup plus important de chercher maintenant a visualiser 
les donn6es d6j& entrdes. Controlez avant tout si votre proc6dure de choix vous 
affiche bien la routine de sortie suivante : 


PROCEDURE choix I version-BOX 
SELECT choix$ 

CASE "4","A" 
affiche r 

RETURN 
ou encore: 

PROCEDURE choix ! version-GEM 
SELECT choix% 

CASE 14 
affiche r 

RETURN 


N’oubliez pas d’effacer d’abord la procedure correspondante existant sous ce 
nom ! Vous devriez d’ailleurs etre en mesure de fabriquer vous-meme la 
procedure d’affichage, en examinant soigneusement la procedure enregistrer et 
en reprenant les instructions pour le formulaire et les cadres : 


PROCEDURE afficher 


LOCAL i& 


LOCAL clavier$,aff% 


'masque d’affichage 


CLS 
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RBOX 8,60,631,340 ! bord de la fiche 

RBOX 8,8,631,40 ! en-t§te 

RBOX 8,344,631,375 ! bas de la fiche 

FOR i&=5 TO 17 STEP 4 
RBOX 16,16*i&,623,16*i&+48 I textform$ 

NEXT i& 

’ affichage des donnies 
col&=25 

WHILE clavier$ < > CHR$(27) AND aff% < no% 

INC aff% 

PRINT AT(4,2);"fiche no ";aff% 
formulaire(7,5) 

LOCATE col&,7 
PRINT "",nom$(aff%) 

LOCATE col&,11 
PRINT "",rue$(aff%) 

LOCATE col&, 15 
PRINT "",adresse$(aff%) 

LOCATE col&,19 
PRINT "",telephone$(aff%) 

PRINT AT(4,23);“ < Esc> FIN <sinon> continuer"; 
REPEAT 

clavier$ = INKEY$ 

UNTIL claviers < >"" 

WEND 

RETURN 


Vous comprcnez bien que !a procedure d’affichage doit possider sa propre 
variable locale aff%, puisque no% renvoic a la demise fiche icrite, ce qui fait 
que no% reprisentc la valeur maximum pour l’affichage car toutes les autres 
fiches sont encore viergcs. La procedure ivcst pas trfes diffircnte de la 
procedure enregistrer. 

Vous le saviez ? et vous vous souvenez encore des possibilites offertes par 
l’editeur GFA pour le traitement des blocs ? Alors vous savez comment vous 
cpargner ici du travail d’ecriture. 

Vous marquez le dibut puis la fin de la procedure enregistrer en cliquant sur 
BlkSta ou en appuyant < shift > < F5 > puis BlkEnd ou < F5 >. Vous amenez 
ensuitc votre curseur 1& oh vous voulez insirer ce bloc, Vous rcpassez dans le 
menu des blocs par Block ou < F4 >. Si vous n’avez pas roarqui correctement 
votre bloc, vous voyez s’afficher: Block ???, il vous faut alors recommcnccr le 
marquage. A partir du menu des blocs, vous pouvez copier votre bloc marqud 
a l’aide de Copy, et supprimer ensuitc lc marquage par Hide. 

Il suffit alors de remplacer no par aff% et INPUT par PRINT. La-aussi vous 
pouvez vous ipargner du travail : amenez d’abord le curseur au debut du 
nouveau bloc a trailer, puis action nez Replace ou < Shift > < F6 >. 
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Dans 1c GFA Basic 3.0, ccla s’appelle Replac car 1c tcxle du menu y est 
davantage resserre. La fcnctre dc INkiiteur vous invite tout en haut par Find : 
a entrer 1c texie que vous voulez modifier, Tapez ici INPUT puis < Return >. 

Ensuite, la mention replace : vous demande par quoi vous voulez remplacer 
Pancien texte. Entrez ici PRINT et terminez par < Return >. II ne se passe tout 
d’abord rien. Le curseur se place sur le premier INPUT rencontre mais il faut 
actionner 


< Control >-E (=remplacer en GFA Basic 3.0) 
ou 


< Control >-R (=replace en GFA Basic 2.0) 


pour proc6der au remplacement par PRINT. Vous allez ensuite au INPUT 
suivant par: 


< Control > -E (GFA Basic 3.0) 

< Control > -F (GFA Basic 2.0) 


Vous continuez alors ce petit jeu en repetant constamment < Control >-E ou 
< Control >-F et -R jusqu’a ce qu’il n’y ait plus rien a remplacer. Vous 
proc6dez de meme pour remplacer no% par aff %. Les autres modifications, 
vous les faites a la main . Pour rechercher quelque chose dans le texte du 
programme, utilisez Find ou < F6 >. Reportez-vous a l’annexe A qui recapitule 
toutes les options de Tediteur. 


13.5. Chirurgie plastique 


Puisque vous en etes aux modifications : ne vous etes-vous pas fache de voir 
disparaitre le pr6nom de vos amis ? Ou avez-vous tout simplement renonc6 a 
mettre une virgule dans Dupont , Caroline ? Vous n’y etes pas oblige si vous 
utilisez LINE INPUT: 


PROCEDURE enregistrer 


1 saisie des donn6es 

formulaire(7,5) 

LOCATE col& ( 7 

LINE INPUT "".nomSfnoX) 
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LOCATE col&.l 1 
LINE INPUT "",rue$(no%) 

LOCATE col&,15 

LINE INPUT "",adresse$(no%) 

LOCATE col&, 19 

LINE INPUT ”",telephone$(no%) 

RETURN __ 

Vous n’avez plus & economiser les virgules, mais attention, LINE INPUT ne 
s’utilise qu’avcc des chaines de caract&res. Cette limitation ne nous pose pas 
de probldme dans notre mini-banque de donn<5es, car nous ne travaillons 
qu’avec des chaines de caractferes. Vous pouvcz done par la suite utuiser LI NE 
INPUT pour nom virguleprtnom... 

J’aimerais aussi ameliorer quclque chose sur les bords de la fiche : la ligne du 
bas me plairait plus dans les routines d’entrde et de sortie, si la mention 
<sinon > continuer se trouvait tout S fait £ droitc, Comme cette hgne s cent 
les deux fois, exactement de la meme fagon, on pourrait 1’inclure dans la 
procedure suivante: 


PROCEDURE bas (VAR clavier$) 

PRINTAT(4,23); I| <Esc> FIN‘ l ;SPACE$(48);"<sinon> continuer; 

REPEAT 

clavier$ = INKEY$ 

UNTIL clavier! <>"“ 

R ETURN _ 

Le parametre clavierS doit etre ddfini comme variable globale afrn que la 
proeddure renvoie la valour clavierS, Dans la version 2.0, on n’utilise aucun 
parametre, clavierS a alors une portde globale. 

La ligne d’en-tete me parait surchargee sur sa gauche car elle est vide & droite. 
On pourrait y placer le mode de traitement, ce qui nous amene a cette routine: 


PROCEDURE tete (nombre%,mode$) 

PRINT AT(4,2);"fiche no '';nombre% 

PRINT AT(60,2);mode$ 

RETURN ___ 

Si vous voulez, vous pouvez plutot faire figurer sur cette ligne l’heure et la date 
par les fonctions DATES et TIMES : 
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PROCEDURE tete(nombre% l mode$) 

PRINT AT(4,2); ll fiche no M ;nombre% 

PRINT AT(30,2);DATE$;" ";TIME$;" heure 1 * 
PRINT AT(60 p 2);mode$ 

RETURN 


Enfin, je ne vois pas pourquoi on ne reprendrait pas dans une seule procedure, 
le meme masque pour l’affichage et la saisie avec les instructions RBOX: 


PROCEDURE masque 
LOCAL i& 


CLS 

RBOX 8,60,631,340 

Ibord de la fiche 

RBOX 8,8,631,40 

!en-tete 

RBOX 8,344,631,375 

!bas de la fiche 

FOR i&=5 TO 17 STEP 4 

RBOX 16,16*i&,623,16*i&+48 !textform$ 

NEXT i& 

RETURN 



Et voyez maintenant toutes les modifications : 


PROCEDURE enregistre 
LOCAL clavier$ 

masque 
col& = 25 

WHILE clavier$< > CHR$(27) AND no% <max% 
INC no% 

tete(no%,"saisie") 
form ulaire (7,5) 

LOCATE col&,7 

LINE INPUT ,l " 1 nom$(no%) 

LOCATE col&,11 
LINE INPUT , "' 1 rue$(no%) 

LOCATE col&,15 

LINE INPUT ,l,, ,adresse$(no%) 

LOCATE col&, 19 

LINE INPUT "",t6l6phone$(no%) 

bas(clavier$) 

WEND 

RETURN 


PROCEDURE afficher 
LOCAL clavier$,aff% 

masque 

col&=25 

WHILE clavier$ < > CHR$(27) AND aff% < no% 
INC aff% 

tete(aff%,"affichage") 
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formulaire(7,5) 

PRINT AT(col&,7);nom$(aff%) 

PRINT AT(col&,11);rue$(aff%) 

PRINT AT (col &, 15); ad resse$ (aff %) 
PRINT AT(col&, 19);1elephone$(aff%) 
bas(clavier$) 

WEND 

RETURN 


J’ai reduit encore la procedure d’affichage en remplagant LOCATE et PRINT 
par une instruction PRINT AT. Vous voila maintenant saisi par l’envie de voir 
s’il n’y a pas d’autres points communs qu’on pourrait rassembler dans une 
procddure ? Je vais vous presenter une commande pour terminer : LPRINT. 

Le "L" devant PRINT commande a Fordinateur de sortir les donnees non-pas 
vers Fecran mais vers Fimprimante (lineprinter). Cela n’est pas trfes nouveau 
pour vous si vous vous souvenez de la signification de Llist. 

Si vous poss6dez une imprimante, vous pouvez vous faire le plaisir -ou vous 
donner la peine- de convertir la procedure d’affichage pour en faire une 
procedure d’impression. Limitez-vous d’abord a Fimpression brute des 
donndes. Refldchissez a la fa^on d'inserer ici les procddures d’en tete et de 
bas-de-fiche. Vous pourriez 61aborer le menu suivant: 


Affichage 

1. sur Fecran 

2. sur Fimprimante 


Vcrifiez que votre imprimante est bien allumee avant d’appelcr la routine 
d’impression. 


13.6. Resume 


Fin de ce chapitre : je vous accorde une pause, apres laquelle vous devrez vous 
souvenir de tel ou tel point traitd dans les chapitres prdcedents. 

N’oubliez pas que les procedures definies par PROCEDURE ne fonctionnent 
que si vous les appelez quelque part par leur nom, par GOSUB ou par un 
place devant! 
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Vous vous rappelez que "SPACE$(<nombre>)" sert k produire un certain 
nombre d’espaces vides et DATES, TIMES a indiquer ou r6gler la date et 
Pheure. 

Je vous ai rappele READ et DATA et fait connaitre la nouvelle commande 
RESTORE, qui ramfene le pointeur DATA au debut des lignes DATA. Si vous 
voulez le ramener a une place determinee, il faut la marquer et completer la 
commande en dcrivant "RESTORE < marque > 

Vous savez que vous pouvez entrer des virgules si vous utilisez "LINE 
INPUT < variable-chame >", et que vous pouvez lancer une impression sur 
imprimante par LPRINT, si cette derniere est allum6e ! 

Je vous rappelle enfin ces commandes-editeur : 


BlkSta 

< Shift > < F5 > 

marquer le d6but d'un bloc 

BlkEnd 

< F5> 

marquer la fin d’un bloc 

Block 

< F4> 

acc&s au menu des blocs : 

■ Copy 

<C> 

-copier le bloc 

- Move 

<M> 

-d6placer le bloc 

- Write 

<W> 

-sauvegarder le bloc sur une disquette 

-List 

<L> 

-imprimer le bloc sur imprimante 

• Delete 

<Control> <D> 

-effacer le bloc 

-Hide 

<H> 

-fiter les marques du bloc 

Find 

<F6> 

Retrouver le texte d'un bloc 

Replac(e) 

<Shift> < F6> 

Remplacer le texte 


Les deux dernieres options ne fonctionnent que si vous utilisez en plus 
< Control > -F et < Control > -R ou < Control > -E. Pour le reste de ce qui 
concerne Pediteur, reportez-vous k Pannexe A. 

Vous ne m’en voudrez pas de vous rappeler que vous pouvez plier le listing de 
votre programme en plagant votre curseur sur PROCEDURE... et en appuyant 
sur la touche < Help >. On peut proc6der a des operations de bloc meme sur 
des procedures repliees mais pas pour Find et Replac(e). 
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Chapitre 14 



V ous etes bien avanc6 maintenant dans la realisation de votre banque de 
donnees. Vous pouvez y faire des versements et des retraits pendant les 
heures d’ouverture. Mais vous aimeriezbien que votre compte soit bien a l’abri, 
meme apres les heures d’ouverture ! 

II faut done tout placer dans un coffre-fort avant de fermer les bureaux: je l’ai 
deja dit, notre coffre-fort, c’est la disquette. Meme si vous avez un disque dur, 
il est bon d’avoir une sauvegarde sur disquette. 


14.1. Ouvrir et fermer 


Nous allons maintenant voir comment vous allez transporter sur la disquette 
vos classeurs et fielders. Jusqu’ici, vous n’avez que sauvegarde vos programmes 
vers une disquette ou vers un fichicr sur votre disque dur, & I’aide de Save ou 
Save,A, et vous les avez rechargds par Load ou Merge dans I’editeur. 

II est clair que sauvegarder revient, pour l’ordinateur, a ecrire et charger revient 
a lire, ce qui nous amene a penser a PRINT et INPUT. Nous ne les avons encore 
utilises que pour les choses suivantes : 


PRINT pour I’affichage sur I'Scran 

et _____ 

INPUT pour I’entr6e de donn6es par le clavier. 


L’ordinateur doit maintenant recevoir un signe lui indiquant que cette fois ces 
instructions ne concernent pas l’ecran ou le clavier : 
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REM 6crire 5 phrases sur disquette 
FOR i% = 1 TO 5 

INPUT phrase$ ! saisie par le clavier 
PRINT #1 ,phrase$ ! sortie sur une disquette 
NEXT i% 

END 

REM lire 5 phrases sur disquette 
FOR i% = 1 TO 5 

INPUT #1 ,phrase$ ! chargement depuis la disquette 
PRINT phrase$ ! affichage sur l'6cran 

NEXT i% 

END 


Le "#" figurant derriere PRINT ou INPUT est le signal destine a faire 
comprendre a rinterpr6teur GFA qu’il ne s’agit plus des entrees/sorties 
ordinaires. Vous supposez a juste titre qu’on peut alors solliciter d’autres 
appareils, comme par exemple Pimprimante. Le chiffre qui suit le "#" indique 
le canal de sortie, et correspond au num6ro de Pappareil peripherique 
connects sur ce port, ici Punite de disquette. Ce nombre n’est pas forcement 1. 

Les donndes sont alors tout simplement devices . Si vous avez essaye de lancer 
un des deux exemples, vous avez du recolter un message d’erreur, car tout est 
en fait plus compliquf qu’il n’y parait. II faut tout d’abord ouvrir le canal en 
question puis le fermer. 

La definition-standard de tout ordinateur, de tout systeme, de tout langage de 
programmation pr6voit toujours Pouverture des canaux correspondant au 
clavier et a Pecran. Les autres canaux doivent par contre etre expressdment 
ouverts puis refermes. Les commandes du GFA Basic pour cela sont toutes 
simples: 


OPEN.,. 

et 

CLOSE 


L’instruction OPEN ouvre un canal de donnees ou un canal vers un fichier sur 
disquette. 

"O" ouvre un fichier en ecriture 
"I" ouvre un fichier en lecture 
"A" permet d’ajouter des donnees a un fichier 
"U" ouvre un fichier existant en 6criture et en lecture 

"R" ouvre un fichier a acces direct, fichier decrit sous Pinstruction 

FIELD 


14 -178 


Bien debuter en GFA Basic 






14 -179 


Utilisation des disquettes 


L’instruction CLOSE ferme un canal de donnees ou un canal lie k un fichier 
sur disquette. Les 2 instructions vont de pair. 

En ouvrant un canal, t’ordinateur veut savoir s*il va ficrire ( = "OUTPUT 
abrdviation n O") ou Sire (= "INPUT n abr6viation T). Comme il s’agit ici d’un 
disquc dur ou d’une disquette, ces indications ne suffisent pas encore. Pour 
afflcher ou entrer des donn6es par le clavier, Y6crm ou rhnpriiname, il suffit 
d’un code d£signant Papparcil vis£. Sur unc disquette ou un disque dur, on peut 
par centre accumulcr une foule de fichiers dlff^rents qu*il faut appelcr par leurs 
propres noms ! 

C'est pourquoi il faut preciser non-seulement le nom de P unite de disque ou 
de disquette mais aussi le nom des fichiers, ce qui nous donnerait un 
programme-test comme cclui-ci: 


REM 6crire sur disquette 

DIM phrase$(5) 

INPUT “nom du fichier: M ,nomfichier$ 

OPEN "0",#1,nomfichier$ 
FOR i% = 1 TO 5 

INPUT phrase$(i%) 

! saisie par le clavier 

PRINT #1,phrase$(i%) 

t sortie sur une disquette 

NEXT i% 

CLOSE #1 

! fermeture du fichier 

REM lire la disquette 

INPUT "nom du fichier: ".nom fichier$ 

OPEN T,#1,nomfichier$ 
FOR i% = 1 TO 5 

INPUT #1,phrase$(i%) 

! chargement depuis la disquette 

PRINT phrase$(i%) 

! affichage sur l’6cran 

NEXT i% 

CLOSE #1 

! fermeture du fichier 

END 



nomfichier$ est le nom du fichier sous lequel le fichier sera sauvegarde et 
recharge sur la disquette. 


OPEN “O ll ,#1 1 nomfichier$ (GFA3.0 abrv. o o 1 nomfichier$) 
(GFA 3.0 abrv. O "O" 1 nomfichier$) 


permet d’ouvrir le fichier pour ecrire dedans. S’il existait auparavant un fichier 
de meme nom, il est ecrase. 


OPEN 'T,#1 ,nomfichier$ (GFA 3.0 abrv. o i 1 nomfichier$) 
(GFA 3.0 abrv. o "i" 1 nomfichier$) 
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permet d’ouvrir un fichier pour le lire. Si le fichier demande n’existe pas, vous 
recevez un message d’erreur, et les donnees entr6es sont perdues ! 

J’espere que vous avez test£ tout cela avec des donnees que vous pouviez perdre 
sans regret ! Vous en etes sans doute arrive a la conclusion qu’il faut ici se 
montrer particulierement prudent! 

II vaut mieux s’assurer d’abord de la presence du fichier demand6 sur la 
disquette placee dans l’unite de disquette. 

Le GFA Basic va vous y aider: la fonction EXIT (nom de fichier$) permet de 
savoir si tel ou tel fichier existe (valeur TRUE = -1) ou non (valeur FALSE = 
0). Nous pouvons completer notre programme : 


REM 6crire sur disquette 

DIM phrase$(5) 


INPUT "nom du fichier k §crire :",nomfichier$ 

IF NOT EXIST(nomfichier$) 


OPEN "0",#1,nomfichier$ 
FOR i% = 1 TO 5 

! fichier n'existe pas encore 

INPUT phrase$(i%) 

! saisie par le clavier 

PRINT #1,phrase$(i%) 

! sortie sur une disquette 

NEXT i% 

CLOSE #1 

! fermeture du fichier 

ELSE 

PRINT "fichier existe d§j&" 
ENDIF 


REM lire la disquette 

INPUT "nom du fichier k lire 

: " p nomfichier$ 

IF EXIST(nomfichier$) 


OPEN T,#1 p nomfichier$ 
FOR i% = 1 TO 5 

! fichier existe d6j& 

INPUT #1,phrase$ 

! chargement depuis la disquette 

PRINT phrase$(i%) 

1 affichage sur l’6cran 

NEXT i% 

CLOSE #1 

! fermeture du fichier 

ELSE 

PRINT "fichier non trouv6" 
ENDIF 

END 



14.2. Un coffre-fort pour la banque 


Vous voulez maintenant enfin posseder un coffre-fort pour votre banque. Cela 
ne devrait plus etre bien difficile, puisque vous savez que les deux 
manipulations n6cessaires s’apparentent au fond aux procedures d’entrde et 
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de sortie de donnees, qui se font cette fois non-plus avec le clavier et l’dcran 
mais avec l’unite de disquette. 

Depouillons ces deux procedures de leurs masques de formulaire et de leurs 
cadres ainsi que des instructions LOCATE. On peut aussi retailler un peu dans 
les PRINT et INPUT. 

Les lignes d’en-tete et de bas de fiche sont inutiles, et on peut aussi supprimer 
toutes les definitions et instructions concernant clavier$. Nous obtenons done 
deu xsquelettes sur lesquels nous pouvons greffer nos nouvelles procedures : 


PROCEDURE afficher 
LOCAL aff% 

WHILE aff%<no% 

INC aff% 

PRINT nom$(aff%) 
PRINT rue$(aff%) 

PRINT adresse$(aff%) 
PRINT telephone$(aff%) 
WEND 
RETURN 


PROCEDURE enregistrer 

WHILE no%<max% 

INC no% 

LINE INPUT nom$(no%) 
INPUT rue$(no%) 

INPUT adresse$(no%) 
INPUT telephone$(no%) 
WEND 
RETURN 


II ne nous reste plus qu’a les adapter pour le travail avec l’unit6 de disquette: 


PROCEDURE sauvegarder 
LOCAL aff% 

LOCATE 23,15 

INPUT "nom du fichier :",nomfichier$ 
IF nomfichier$< >"" 

OPEN "0",#1,nomfichier$ 

WHILE aff%<no% 

INC aff% 

PRINT #1,nom$(aff%) 

PRINT #1,rue$(aff%) 

PRINT #1,adresse$(aff%) 

PRINT #1 ,telephone$(aff%) 

WEND 
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CLOSE #1 
ENDIF 
RETURN 


PROCEDURE charger 
LOCATE 23,15 

INPUT "nom du fichier :",nomfichier$ 
IF EXIST(nomfichier$) 

OPEN T,#1,nomfichier$ 

WHILE no% < max% 

INC no% 

LINE INPUT #1,nom$(no%) 

INPUT #1, rue$(no%) 

INPUT #1, adresse$(no%) 

INPUT #1, telephone$(no%) 

WEND 
CLOSE #1 
ELSE 

PRINT AT(45,23);"fichier non trouv6 n 
ENDIF 
RETURN 


Dans la procedure sauvegarder , j’ai renonc6 k la condition EXIST, car on ne 
pourrait plus ecraser un ancien fichier portant le meme nom par un nouveau. 
II suffit, pour qu’il y ait sauvegarde, que le fichier porte un nom ( < > 

Vous voyez que LINE INPUT peut servir pour divers peripheriques d’entree 
de donnees. Par la meme occasion, nous en avons profit6 pour changer le nom 
des procddures. II ne nous reste plus qu’a utiliser notre coffre-fort. Actualisons 
tout d’abord notre choix de procedures pour que nos deux procedures 
supplementaires puissent etre appel6es : 


PROCEDURE choix ! version-BOX 
SELECT choix$ 

CASE '^V'S" 
sauvegarde 
CASE M 3" J II C M 
charger 

RETURN 


ou encore: 
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PROCEDURE choix ! version-GEM 
SELECT choix% 


CASE 12 
sauvegarder 
CASE 13 
charger 

RETURN 


N’oubliez pas d’effacer 6ventuellement les proc6dures factices {dummy) 
port ant le mcmc nom ! Pour tester tout cel a, cntrcz quelques doundcs par ia 
procedure enregfstrer, a£fichez-les par la procedure afficher. Inventez alors un 
nom de fichier dont vous savez qu’U n’existe pas encore sur voire disquette, par 
exemple SAFE.DAT. 


14.3. Sauvegarder et recharger 


Choisissez maintenant la procedure sauvegarde : apres avoir saisi le nom de 
fichier que vous avez invente, l’unitd de disquette devrait se mettre en marche 
et effectivement sauvegarder vos donnees. Terminez votre programme et 
relancez-le encore une fois : en langant la procedure afficher , vous constatez 
que les donnees ne figurent effectivement plus dans les champs du tableau. 

Voila venu le moment decisif : vous selectionnez le point du menu qui 
declenche la procedure charger , apres quoi vous entrez le nom du fichier (dont 
vous vous souvenez, j’esp&re). L’unite de disquette se met en marche..., et le 
programme GFA Basic s’interrompt brutalement en vous envoyant un message 
d’erreur signalant que vous etes a la fin du fichier. Que se passe-t-il ? 

Admettons que max% ait la valeur 9, signifiant qu’on peut saisir ou traiter au 
maximum 9 fiches. Admettons que, pour vos tests, vous vous soyez limite a la 
saisie de 3 fiches, que vous venez de sauvegarder sur la disquette : la variable 
num6rique no% avait done la valeur 3. 

En relan^ant le programme, no% est ramen6 a 0. Si vous appelez maintenant 
la proc6dure de charger les trois fiches sont naturellement chargees depuis la 
disquette dans Tordinateur. Examinez la condition provoquant la repetition de 
fenregistrement des fiches: 
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WHILE no% < max% 

INC no% 

LINE INPUT #1,nom$(no%) 
INPUT #1 p rue$(no%) 

INPUT #1, adresse$(no%) 
INPUT #1, telephone$(no%) 
WEND 


Ceci signifie que votre ordinateur tente de charger des fiches jusqu’a ce que 
no% ait atteint la valeur de max %. Si, comme dans notre exemple, vous n’avez 
saisi que 3 fiches, vous en avez done sauvegarde sur la disquette moins que la 
valeur max %, et vous contraignez votre pauvre Atari a declarer forfait! Nous 
voila bien oblig6 de Paider ! 

II faut ajouter une condition k la procedure charger* qui n’autorise le processus 
de chargement que s’il y a effect ivement des donntses sur la disquette. La raison 
de Pinterruption dans le programme 6tait que le fichicr prenait fin trop tdt. 11 
nous faut done une condition tenant compte de la marque de fin du fichier. 
Vous savez que le GFA Basic attribue une marque de fin de fichier a un ficher 
sauvegarde sur une disquette.Cette marque s’appelle prosaiquement EOF 
(=End Of File). 

L’ordinateur doit done interrompre le processus de chargement au plus tard 
lorsqu’il rencontre cette marque, Autremcnl dit: le chargement des donnees 
doit se r£p£ter tanl qu’on n*a pas atteint la marque End Of File. Ainsimodifiee, 
noire procedure de chargement devraii tourner : 


PROCEDURE charger 
LOCATE 20,15 

INPUT "nom du fichier : M ,nomfichier$ 

IF EXIST(nomfichier$) 

OPEN T,#1,nomfichier$ 

WHILE NOT EOF(#1) AND no%<max% 
INC no% 

LINE INPUT #1, nom$(no%) 

INPUT #1,rue$(no%) 

INPUT #1, adresse$(no%) 

INPUT #1, telephone$(no%) 

WEND 
CLOSE #1 
ELSE 

PRINT AT(45,23); ,l fichier non trouv6" 
PAUSE 100 
ENDIF 
RETURN 
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Lc (#1) demure EOF ddsigne 1c numdro du canal II y a chargcmcnt jusqu^ 
cc que le coffre-fort soit enticrement vidd (= NOT EOF(#l» et tanl qu’ily a 
de la place chez nous (no%< max%). Pour que vous ayez le temps do lire irn 
eventuel message, j'ai insdrd la commande PAUSE: le nombre qui suit donne 
la durde de raffichage en cmquantieme de seconde, ce qui fait ici 2 seconder 
Cela permet Pinterruption momentande du programmme. 

Et si vous ne Pavez pas encore fait tout seul, vous devez, dans la proeddure 
sauvegarder, remplacer la boucle WHILE par FOR...NEXT, puisque le 
no%( = le nombre) est connu : 


PROCEDURE sauvegarder 
LOCAL aff% 

LOCATE 23,15 

INPUT "nom du fichier :",nomfichier$ 
IF nomfichier$< >" M 
OPEN M 0",#1,nomfichier$ 

FOR aff% = 1 TO no% 

PRINT #1,nom$(aff%) 

PRINT #1,rue$(aff%) 

PRINT #1 ,adresse$(aff%) 

PRINT #1 ,telephone$(aff%) 

NEXT aff% 

CLOSE #1 
ENDIF 
RETURN 


Vous pouvez etre satisfait de votre banque, puisque vous pouvez maintenant y 
abriter des donnees en toute securite, et que vous pouvez les reprendre. On 
pourrait toutefois encore amdliorer quelque chose : le message fichier non 
trouvi pourrait s’afficher sous une autre forme, en s’inscrivant dans une boite 
d’alarme k Paide de Pinstruction 


ALERT 1 ."fichier non trouv6",1,' 11 OK |dommage",back% 


J’en profite pour vous apprendre une nouvelle instruction: 


FILESELECT "A DAT", ll SAFE.DAT" l nomfichier$ ! chargement 

ou _______ 

FILESELECT "A :\* DAT M , M ",nomfichier$ ! sauvegarde 


Elle irait tres bien avec la version GEM de notre mini-banque de donnees . La 
fenetre de selection de fichier irait bien aussi avec notre version encadrfe. 
Grace a Pinstruction filesect qui met en place une boite de selection de fichier 
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FILESELECT < dossier >, < s6lection_fichier > ,nomfichier$ 


vous ouvrez une boite contenant un r6pertoire partiel de votre disquette, de la 
meme fagon par exemple que lors du chargement ou de la sauvegarde du GFA 
Basic. Vous pouvez s61ectionner un fichier a Taide de la souris ou entrer un 
nom de fichier par le clavier. Le dossier actualist se trouve sous INDEX 
au-dessus du r6pertoire partiel, le nom du fichier choisi se trouve sur la ligne 
selection , ou on peut entrer un nouveau nom. Comme vous le constatez pour la 
sauvegarde, vous ne pouvez entrer que"" pour selection Jichier . 


14.4 Transfert de donnees 


Nos procedures de sauvegarde et de chargement sont encore plus jolies, et elles 
s’ecrivent: 


PROCEDURE sauvegarder 
LOCAL aff% 

FILESELECT "A :\* DAT ll 1 ll,, ,nomfichier$ 

IF nomfichier$< >"" 

OPEN ll O" l #1 I nomfichier$ 

FOR aff% = 1 TO no% 

PRINT #1 p nom$(aff%) 

PRINT #1 p rue$(aff%) 

PRINT #1,adresse$(aff%) 

PRINT #1,telephone$(aff%) 

NEXT aff% 

CLOSE #1 
ENDIF 
RETURN 

PROCEDURE charger 

FILESELECT ,, A:\*.DAT ll p ll SAFE.DAT ,, ,nomfichier$ 

IF EXIST(nomfichier$) 

OPEN T,#1 p nomfichier$ 

WHILE NOT EOF(#1) AND no%<max% 

INC no% 

LINE INPUT #1 p nom$(no%) 

INPUT #1 p rue$(no%) 

INPUT #1, adresse$(no%) 

INPUT #1, telephone$(no%) 

WEND 
CLOSE #1 
ELSE 

ALERT 1 ."fichier non trouve",!," OK |dommage",back% 
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ENDIF 

RETURN 


Si vous clique'/ sur annulet nomfichierS cst une chaine vide ("")• C’est pourquoi 
le processus dc sauvegarde ne se d£denche pas. Lors du chargement, la 
procddure se lermine dans ce cas par le message ftchiernon trouvi . 

^utilisation des procedures de sauvegarde et dc chargement que nous venons 
d^crire ne devrait pas se limiter b notre programme de mini-banque de 
donates, Vous devriez pouvoir vous en servir pour l s archivage dcs images que 
vous avez crg£es en mode graphique et que vous avez mfimorisfes sous forme 
de chame grace a GET (chapitre 9) 


PROCEDURE pic_save(nomfichier$,image$) 
OPEN "0 M ,#1,nonnfichier$ 

PRINT #1,image$ 

CLOSE #1 
RETURN 


Voila votre image ( = picture) en securit6 ( = save) sur la disquette. Pour le 
chargement: 


PROCEDURE picJoad(nomfichier$,VAR image$) 
OPEN T,#1,nomfichier$ 

INPUT #1,image$ 

CLOSE #1 
RETURN 


Par ccttc procedure et les instructions PUT appropri6es, vous retrouvez votre 
image sur Tecran. Attention : image$ doit etre ici un parametre variable, car 
cette procedure doit redonner l’image chargtc. 

11 est inlSressant de pouvoir transferer des doimees d’un fichier it un autre, Ceci 
correspond en principe au transfer! des donndcs du clavier (— appareil de 
saisie) vers l’6cran (= appareil dc sortie). Cette fois cependant, e’est l’unit6 de 
disquette qui fait office d’apparcil de saisie et de sortie it la fois. 


PROCEDURE copier(fichier.source$,fichier.cible$) 
LOCAL text$ 

IF EXIST(fichier.source$) 

OPEN "l",#1,fichier.source$ 

OPEN "0",#2,fichier.cible$ 

I 

WHILE NOT EOF(#1) 

LINE INPUT #1,text$ 
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PRINT #2,text$ 

WEND 

CLOSE 

ELSE 

ALERT 1,"rien ne vient de rien!‘\1 1 " OK|dommage",back% 
ENDIF 
RETURN 


Nous devons ici utiliser les canaux 1 et 2 pour que les donnees ne se tamponnent 
pas lors de leur entree-sortie. CLOSE sans plus de precision referme tous les 
fichiers ouverts. Vous pouvez insurer cette procedure dans votre programme 
de mini-banque de donn6es, par exemple pour avoir un exemplaire back-up de 
vos fichiers. 


La routine de recopiage peut d’ailleurs etre utilisee aussi pour les fichiers LST 
sauvegardes par Save,A. Faites un essai: 


REM recopiage 

FILESELECT ll a:\*.LST ll , ,,,l p fichier.source$ 

FILESELECT "a:\* BAK ll ,"" I fichier.cible$ 

IFfichier.source$< >"" ANDfichier.cible$< > ,M ' 
copier(fichier.source$ ( fichier.cible$) 

ELSE 

ALERT 2,"pas de copie sans nom OK |non",back% 
ENDIF 

END 

f 

PROCEDURE copier(fichier.source$,fichier.cible$) 

LOCAL text$ 

I 

IF EXIST(fichier.sourceS) 

OPEN T,#!, fichier.sourceS 
OPEN "O l, ,#2,fichier.cible$ 

I 

WHILE NOT EOF(#1) 

LINE INPUT #1 ,text$ 

PRINT #2,text$ 

WEND 

CLOSE 

ELSE 

ALERT 1,"rien ne vient de rien !",1OK|dommage",back% 
ENDIF 
RETURN 


Faites des essais, exercez-vous, y compris avec d’autres donnees comme par 
exemple des chiffres. Utilisez de preference une disquette ne contenant pas de 
fichier important ! II faut encore que vous connaissiez une autre possibilite 
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d’ouvrir un fichier. Dans la procedure chargement, vous pourriez remplacer la 
ligne 

OPEN “0",#1,nomfichier$ _ 


par 


OPEN "A",#1,nomfichier$ 


ou la faire figurer comme varianlc possible. "A" est I’abrdviation de APPEND: 
s’il existe un fichier de merae nom lors de la sauvegarde des donndes, il ne sera 
pas fierasd, les donndes nouvelles viendront s’ajouter aux donndes 
prdexistantes. S’il n’existe pas encore de fichier portant le nom choisi, il sera 
crdd. Cc serait peut-etre bicn pour votrc mini-banque de donndcs ? 


14.5. Resume 


Vous connaissez maintenant l’essentiel (mais pas tout, et de loin !) sur la 
manipulation des fielders par rapport a l’unite de disquette. En tout cas, vos 
donnees peuvent etre mises en sdcuritd sur une disquette et vous pouvez les y 
rechercher a tout moment. 

Pour votre confort, vous connaissez l’instruction 


FILESELECT < dossier >, < sdlectionfichier > ,nomfichier$ 


qui sertit ouvrir une boite de sdlection des fichiers: on peut prdciser auparavant 
le dossier ainsi que le fichier choisis. La variable nomfichier$ contient le nom 
du fichier a charger ou a sauvegarder. Si vous selectionnez annuler, nomfichier$ 
prend la valeur d’une chaine vide. 

Vous pouvez controler l’existence d’un fichier sur la disquette ou le disque dur 
grace k EXIST (nomfichier$) : 


EXIST(nomfichier$) = TRUE (< > 0) le fichier existe 
EXIST(nomfichier$) = FALSE (= 0) le fichier n'existe pas 


Vous savez qu’un canal mene a l’unite de disquette ainsi qu’a d’autres appareils 
peripheriques, et qu’il est designe par un numero. 
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OPEN T,#no_canal,nomfichier$ ("I" = INPUT) 


vous permet d’ouvrir un fichier pour le lire. Un pointeur est place au debut du 
fichier. Si le fichier n’existe pas, vous recevez un message d’erreur. 


OPEN M 0 M ,#no_canal p nomfichier$ ("O" = OUTPUT) 


vous permet d’ouvrir un fichier pour y ecrire. Un pointeur est plac6 au debut 
du fichier. Si le fichier existe deja, son contenu sera 6crase et remplace par les 
nouvelles donnees. 


OPEN M A",#no_canal,nomfichier$ ("A" = APPEND) 


vous permet d’ouvrir un fichier pour y 6crire. Un pointeur est place k la fin du 
fichier. Si le fichier existe deja, les nouvelles donnees sont ajout6es aux 
anciennes. Vous vous souvenez que vous pouvez, grace k EOF(#canal_no), 
controler si vous etes bien arrive a la fin d’un fichier. 

Apres avoir ouvert le fichier, vous pouvez lire les donnees et les ecrire sur une 
disquette par les instructions : 


INPUT #no_canal,< variable > 

ou ___ 

UNE INPUT #no_canal, < variable > 

et __ 

PRINT #no_canal, < variable > 


N’oubliez pas de refermer un fichier ouvert par "CLOSE#no_canar ou, si vous 
en avez ouvert plusieurs, par CLOSE 6crit seul. 

Vous savez que vous pouvez entendre ce que vous avez ecrit grace a PRINT 
CHR$(7), et enfin que vous pouvez faire une PAUSE < duree >... 
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Chapitre 15 



A prds avoir saisi quelques donnees, les avoir contcmpldes, les avoir 
transposes aller-retour de la RAM i la disquette, vous avez senti monler 
le ddsir de disposer d’une procddure de cor reel ion. Car vous avez 
vraisemblablement fait des fautes de frappe, el vous vous eles de plus en plus 
dnerve de ne pouvoir les corriger. D’ailleurs, vous n’avez sans doute pas encore 
calme votre soif de disposer de possibilites plus 6tendues pour votre 
mini-banque de donndes ou pour d’autres projets. 


15.1. II faut pouvoir apporter des corrections... 


Essayons tout d’abord de saiisfairc votre ddsir de rendre le traitement de vos 
donnees plus confortable. Peut-etre serez vous d£j& bicn content de pouvoir 
modifier la procedure de saisie de telle sorte qu’elle permette la repetition et 
done la correction d’une saisie quelconque. II faul ccpendant pour cela inserer 
certains signes signalant a l’ordinateur qu’une donnee va etre corrigee. 

II serait interessant d’inclure la procedure de sortie dans cette modification, 
car la correction de donnees n’est finalement rien d’autre qu’une comb'inaison 
d’entrees et de sorties. Pour fabriquer une proeddure de correction autonome, 
nous allons reutiliser des segments de programme deja dcrits, ce qui va nous 
donner notre premiere version brute en melangeant le texte de la procedure de 
sortie et de saisie : 


PROCEDURE correction 
LOCAL clavier$,aff% 

masque 
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col&=25 

WHILE clavier$ < > CHR$(27) AND aff% < no% 
INC aff% 

tete(aff%,"correction 11 ) 
formulaire(7,5) 

PRINT AT(col&,7);nom$(aff%) I affichage 
PRINT AT(col&,11);rue$(aff%) 

PRINT AT(col&, 15);adresse$(aff%) 

PRINT AT(col&,19);telephone$(aff%) 


LOCATE 7,col& I saisle 

LINE INPUT "",nom$(aff%) 
LOCATE 11,col& 

INPUT “”,rue$(aff%) 

LOCATE 15,col& 

INPUT "",adresse$(aff%) 
LOCATE 19,col& 

INPUT “",telephone$(aff%) 

P 

bas(clavier$) 

WEND 

RETURN 


Vous voyez s’afficher d’abord la fiche completement ecrite, qu’il vous faut 
ensuite rdecrire totalement. Vous voyez tout de suite la faiblesse de notre 
procedure: pour corriger Tune ou Fautre donnee, il faut re-saisir toute la fiche, 
et done toutes les donn6es entries auparavant correctement! 

Si vous voulez faire tourner cette version, couplez-la dans la routine de s61ection 
avec aide(sos). Cette proc6dure sera alors appelee en entrant "5" ou "O" ou 
menu no 23. 


Au lieu de lancer la routine "Aider" vous executerez plutot une procedure 
"correction". 


PROCEDURE choix ! version-BOX 
SELECT choix$ 


CASE "S'V'O" 
correction 


RETURN 


ou encore: 
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PROCEDURE choix ! version-GEM 
SELECT choix% 

CASE 23 
correction 

RETURN 


Comme nous aimons les changements, nous pourrions ins6rer devant chaque 
instruction INPUT un controle nous demandant si nous voulons modifier la 
valeur des donnees ou les laisser inchangees. Ceci serait r6alisable grace k 
INKEY$ : il suffirait par exemple d’actionner la touche < Return > pour 
valider la valeur existante, et d’appuyer "#" (ou n’importe quelle autre touche 
que vous choisirez) pour passer en correction: 


PROCEDURE controle (colonne&,ligne&,actuel%,VAR correcte$0) 
LOCAL clavier$ 

LOCATE ligne&,colonne& 

REPEAT 

clavier$ = INKEY$ 

UNTIL clavier&="#" OR clavier$ = CHR$(13) Ireturn 
IF claviers = "#" 

PRINT SPACE$(74-colonne&); leffacer la saisie 
LOCATE ligne&,colonne& 

LINE INPUT correcte$(actuel%) 

ENDIF 

RETURN 


L’ordinatcur interroge le clavier jusqu'a ce qu'unc des touches < Return > ou 
11 #" (code ASCII “ 13) soit actionndc, Dans ce dernier cas, les donn6es saisies 
prdeddemment soiU effaces de la ligne concern£e, ce qui ^limine une des 
faiblesses de notre procedure de correction. 11 faut done indiquer en 
meme-temps la position actualis6e du curseur. En actionnant < Return > par 
contre, les donnees saisies sont valid6es. 

"VAR correcte$"() assure le transfert indirect d’un tableau enfier, ce qu'on 
constate par les parentheses vides placees k la fin de F expression. Indirect, car 
la procedure n’apprend que l’endroit oh se trouve le tableau dans les mfemoires 
de travail, et elle doit rechercher elle-meme la chaine concern6e k Faidc du 
parametre actuel%. La definition VAR garantit que la correction eventuelle 
parvienne bien au bon endroit. 
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II ne nous reste plus qu’a modifier en consequence notre procedure de 
correction: 


PROCEDURE correction 
LOCAL clavier$,aff% 

masque 

col&=25 

WHILE clavier$< > CHR$(27) AND aff% < no% 
INC aff% 

tete(aff%,"correction") 

formulaire(7,5) 

' affichage ou correction au choix : 

i 

PRINT AT(col&,7);nom$(aff%) 

LOCATE col&,7 
controle(col&,7,aff% p nom$0) 

PRINT AT(col&,11);rue$(aff%) 

LOCATE col&, 11 
controle(col&,11 ,aff%,rue$0) 

PRINT AT(col&, 15);adresse$(aff%) 

LOCATE col&,15 
controle(col&, 15,aff%,adresse$0) 

PRINT AT(col&,19);t6l6phone$(aff%) 
LOCATE col&, 19 

controle(col&,19,aff% p tllephone$0) 

bas(clavier$) 

WEND 

RETURN 


Vous conslatez qu’ici aussi, Fensembtc du tableau d’une variablc-chame est 
pris comme parametre k chaque fois qu'on appelle la procedure controle : vous 
dcvez adjoindre des parentheses vides k chaque notn concern#, 

J’ai mixi les procedures de correction et d’affichage de telle sorte que les 
donnees contenues sur une fiche ne soient plus affichees en meme temps mais 
l’une apres Pautre. Vous pouvez modifier cela si bon vous semble. 


15.2.et aussi des ameliorations 


Nous devrions apporter encore une amelioration b ces procedures de 
correction, d’affichage et de saisie pour pouvoir feuilletcr notre fichier non 
seulement vers Pavant mais aussi vers Parri£re. Cela ne nous coutera pas 
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beaucoup de travail puisque nous allons reutiliser une procedure deja ecrite 
en la modifiant un peu: 


PROCEDURE bas(VAR fiche%,clavierS) 

PRINT AT(4,23);"<Esc> FIN";SPACE$(10);"<espace> retour"; 
PRINT SPACES(22);" < sinon >" continuer"; 

REPEAT 

clavier$ = INKEY$ 

UNTIL clavierS < >"" 

IF clavierS = "" 

DEC fiche% 

IFfiche%>0 
DEC fiche% 

ENDIF 

ENDIF 

RETURN 


Cette procedure comporte deux parametrcs variables: vous devez controler si 
ces deux variables sont bien transmises aux trois procedures concernees 
(enregistrer, afficlier, correction) car ia routine de !a ligne du bas va indiquer 
la direction dans laquelle vous fcuilletez les fiches: 


bas(no%,clavier$) I enregistrer 

bas(aff%,clavier$) I afficher _ 

Le comptage en descendant -decr£mcnter- se produit deux fois pour chaque 
fiche, car la valeur du parametre VAR fiche% est redonnfe a la procedure 
appel6e qui la r6augmente aussitot de 1 unitd sous no% ou aff%. On ne peut 
naturellement decrementer qu’une seule fois la ficlie du d6but, puisqu’aucune 
fiche ne la precede. 

Si celtc procedure de correction vous plait et que vous voulcz dcfmitivement 
la re prendre dans votre programme de mini-banque de donnfies, vous devriez 
vous servir d’une procedure interm<kliaire vous permeltant de choisir entre la 
saisie, l’affichage et la correction; 


PROCEDURE traitement 
LOCAL travailS 

’ choix 

col&=25 

CLS 

LOCATE col&,7 
PRINT" TRAITEMENT" 

LOCATE col&,10 

PRINT "1.Entree des donnees E" 

LOCATE col&,12 

PRINT "2.Affichage des donnees A" 
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LOCATE col&,14 

PRINT ''3.Correction des donnees C" 
LOCATE col&, 17 

PRINT ”0. FIN < Esc> 11 

'selection 

REPEAT 

travail$ = UPPER$(INKEY$) 

UNTIL travail$ <> ,m 
SELECT travailS 
CASE "0",27 !Esc 
CASE'TV'E" 
enregistrer 
CASE "2"/‘A" 
afficher 
CASE ,, 3 ,, 1 ,, C 1 ' 
correction 
DEFAULT 
traitement 
ENDSELECT 
CLS 

RETURN 


Vous pouvez maintenant au choix : entrer de nouvelles donnees, afficher des 
donnees existantes, les modifier si necessaire immediatement. Ceci libere 
l’option 4 de votre menu principal 4 . Affichage/Impression qui pourrait servir 
par exemple a la sortie sur une autre imprimante ou vers un autre ordinateur 
via un modem. Je vous laisse le soin de confectionner des cadres pour ce menu, 
pour lequel vous pouvez reprendre la version GEM de notre deuxieme version 
du menu principal. 

Vous voulez peut-etre remplacer totalement les procedures de sortie et entr6e 
par la procedure de correction ? ceci vous epargnerait le sous-menu de 
traitement. II n’y a qu’une seule petite modification a apporter, car les 
procedures d’entr6e et de sortie n’ont pas les memes variables pour compter 
les fiches 

no% compte les fiches qui viennent d’etre remplies : cette variable sert done 
quasiment de pointeur vers la derni&re fiche ecrite. Les autres fiches allant 
jusque max% sont encore vides. 

aff% par contre compte les fiches qui sont affich6es ou transmises pour etre 
traitees. On pourrait en fait tout de suite supprimer la procedure d’affichage, 
car dans la pratique il est rare qu’on ne veuille qu’afficher des donnees sans se 
donner la possibilite de les corriger immediatement s’il en est besoin. 

S’il n’y a pas de donn6es, les proeddures de correction et d’affichage ne peuvent 
pas etre mises en oeuvre, car la condition aff% < no% n’est pas remplie. II vous 
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suffit de modifier cette condition dans les procedures d’afficliage et de 
correction, de ia remplacer par aff%<max% et vous pourrez feuilleter en 
avant ou en arriere toutes vos fiches, qu’ellcs soient rempties ou encore vides. 

La procedure de correction vous permct alors d’cntrer dcs donnees sur 
n’importe quelle fiche, ce qui rend superflue la routine desaisie. En supprimant 
Ic pointeur no%, vous courez le risque de ne plus mattriser I’cnsemble des 
donn6es d£ji saisies ; de plus vous transmettrez memo les fiches vides lors des 
sauvegardes, des sorties sur papier ou des transmissions par modem ! 

Nous devons done conserver la variable-pointeur no% qui doit compter les 
nouvelles fiches: sitot que la valeur de aff% ddpasse celle de no%, ce dernier 
doit augmenter. En intdgrant tout cela dans noire routine de correction, nous 
devrions pouvoir nous passer de la procedure d’enregistremenl: 


PROCEDURE correction 
LOCAL clavier$,aff% 

masque 

col&=25 

WHILE clavier$ < > CHR$(27) AND aff% < max% 

INC aff% 

IF aff%>no% 

INC no% 

ENDIF 

tete (aff% 1 ,, correction") 
formulaire(7,5) 

LOCATE 23,4 

PRINT “<#> correction";SPACE$<39>;"<Return> entree OK" 

' affichage ou correction au choix : 

PRINT AT(col&,7);nom$(aff%) 

LOCATE col&,7 
controle(col&,7,aff%,nom$0) 

PRINT AT(col&,11);rue$(aff%) 

LOCATE col&,11 
controle(col&,11,aff%,rue$0) 

PRINT AT (col &, 15) ;ad resse$ (aft %) 

LOCATE col&,15 
controle(col&,15,aff%,adresse$0) 

PRINT AT(col&,19);telephone$(aff%) 

LOCATE col&,19 

controle(col&,19,aff% 1 telephone$0) 

I 

bas(clavier$) 

WEND 

RETURN 
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Ne ddtruisez quand meme pas les procedures d’ entree et d’affichage, car il n’est 
jamais inutile de pouvoir choisir ! 


15.3. Classement des donnees 


Je vais maintenant vous faire ddcouvrir quelques utilitaires dont dispose le 
GFA Basic surtout dans la version 3.0. Vous pouvez par exemple trier vos 
donnees selon deux methodes diffcrentes, grace aux instructions QSORT et 
SSORT. Ces instructions permettent de trier les element d’un tableau d’apres 
leur taille. "Q" signifie ici quick c’est a dire rapide , et il s’agit du tri le plus rapide 
qui suffit dans la plupart des cas. La methode Shellsort (d’ou le "S") s’emploie 
dans des cas particulars. Essayez ce programme : 


REM Classement 
DIM nom$(10) 

CLS 

FOR i% = 0 TO 10 
INPUT nom$(i%) 

NEXT i% 

CLS 

FOR i% = 0 TO 10 
PRINT nom$(i%)' 

NEXT i% 

PRINT 

QSORT nom$0 ! ou SSORT 
FOR i% = 0 TO 10 
PRINT nom$(i%)’ 

NEXTi% 


Les noms sont classes en un clin d’oeil. Ce petit programme de test ne vous 
permettra pas de constater une grande diffdrence au niveau de la rapidite du 
tri entre QSORT et SSORT, car le nombre des donnees a trier est trop faible. 


Si vous voulez tester la difference entre les deux methodes de tri sur de grandes 
masses de donnees, vous pouvez remplir un tableau d’une foule de nombres 
aleatoires, pour en demander ensuite le tri k chacune des procedures. 


QSORT et SSORT classent les chames dans Pordre du tableau des codes 
ASCII (voir Annexe C). Ceci signifie par exemple que les lettres affect6es d’un 
trema ou les caract£res speciaux se retrouvent a la fin de l’alphabet, ce qui ne 
correspond pas au classement normal. Nous pouvons modifier cela dans le 
GFA Basic 3.0: 
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REM Classement en tenant compte des tr6mas 
4 

DIMtrema|(256) 

FORn| =OTO 255 

trema | (n |) = n | ! code Ascii pour le caractere normal 

NEXT n| 

i ^ 

FOR u|=1 TO 7 
READ um$,norm$ 
code | =ASC(um$) 

trema | (code|)=ASC(norm$) Icode Ascii modifie 
NEXTu| 

DATA A,A,0,0,0,11,a,a,6,o,u 

DIM nom$(10) 

CLS 

FOR i% = 0 TO 10 
INPUT nom$(i%) 

NEXT i% 

CLS 

FOR p% = OTO 10 
PRINT nom$(p%)’ 

NEXT p% 

PRINT 

QSORT nom$0 WITH trema 10 
FOR p% = 0 TO 10 
PRINT nom$(p%)’ 

NEXT p% ____ 

WITH permet d’introduire un tableau ne respectant pas la norme ASCII, et 
qui devient le tableau de reference pour le classement. Le trema a ete ici defini 
comme BYTE (|). Vous pouvez vous-meme determiner la direction du 
classement, du plus petit au plus grand ou inversement: 


QSORT < tableau >(+) ou SSORT < tableau > (+) tri ascendant 

QSORT < tableau >(-) ou SSORT < tableau > (-) tri descendant _ 

Si tcs parentheses reslcnt vidcs, le tri sera touj ours ascendant. Puisquc nous en 
sommes au tri et au classement, je vais vous indiquer quelques commandos 
suppldmcntaires offertes par le GFA Basic 3.0 : 

L’instruction "INSERT nom$(no%) = nouveau-nom$" ajoute un nouvel 
element dans un tableau de cliaincs de caractferes ou de chiflres & 1’endroit 
ddsignd par no%. Tous les dldmcnts suivants sont decales dune place vers 
1’avanl (+1). Mais ceci n’aggrandil pas le tableau, ce qui peut provoquer la 
disparition du dernier eldment ! 
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L/instruction DELETE nom$(no%) efface ! ? 616ment qui se trouve k la place 
no%. Tons les £16ments suivams sont d£ca!6s (Pune place vers Parrtere (1). Le 
dernier 616mcnt prend la forme cPune chaine vide 

L’instruction SWAP < variable_1 >, < variable2 >, permute deux variables de 
meme type. Elle peut etre aussi utiliser pour changer deux tableaux. Cet 
6change se fera trds rapidement, puisque seuls les descripteurs correspondants 
sont en r6alit6 6chang6s. Avec toute Pexp6rience que vous avez accumulee et 
la joie quc vous montrez pour i experimentation, vous etes surement capable 
maintenant d'allonger votre programme de mini-banque de donnees en y 
inserant les procddures de tri et de recherche. 


15.4. Toutes sortes de choses bien utiles 


Le GFA Basic vous offre aussi des facilitds pour la gestion de vos fichiers: DIR 
et FILES servent k afficher des repertoires du contenu des disquettes ou du 
disque dur. DIR ne vous donne que la liste des noms des fichiers sur un lecteur 
determind, alors que FILES y ajoute leur longueur, leur date-systeme et 
Pheurc-systeme. 

Dans les deux cas, vous pouvez ajouter le nom d’un repertoire ou un masque 
(par exemple *.LST); en adjoignant encore Tb, vous pourrez transferer des 
rdpertoires entiers ou des fichiers de meme extension vers une disquette ou un 
disque dur plutot que vers 1’dcran, 



vous permet de sortir sur Pimprimante le rdpertoire de votre disquette. Si vous 
voulezle rdpertoire des programmes du GFA Basic, remplacezle masque 
par "*.GFA", ’’*.BAS" ou ”*.LST". 

Si vous voulez effacer un fichier lorsque vous etes dans un programme (comme 
par exemple celui de votre mini-banque de donndes), vous utilisez KILL <nom 
dufichier>. Si seul le nom du fichier vous ddplait, changcz-Ie par 
RENAME < ancien nom > AS < nouveau nom>, Vous pouvez aussi utiliser 
NAME, mais attention k Putilisation du mot name dans Pdcriture des variables 
ou des procedures! 
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Ces deux instructions devraient d’ailleurs nous donner un peu plus de confort 
dans notre procedure de sauvegarde: 


PROCEDURE sauvegarder 
LOCAL aff% 

i 

FILESELECT "A:\*.DAT",nomfichierS 
IFnomfichier$< >"" 

IF EXIST (nomfichierS) 
backups=nomfichierS 
MI D$ (back u p$, LE N (backu p$)-2) =" BU P" 

IF EXIST (backups) 

KILL backups 
ENDIF 

RENAME nomfichierS AS backups I ou NAME 
ENDIF 

OPEN "0",#1,nomfichierS 
FOR aff% = 1 TO no% 

PRINT #1,nom$(aff%) 

PRINT #1,rue$(aff%) 

PRINT #1,adresse$(aff%) 

PRINT #1 .telephones (aff%) 

NEXT aff% 

CLOSE #1 
ENDIF 

RETURN _ 


Ce processus ne se dSclenchera naturellement ques’il existeun fichier de meme 
nom: 


I IF EXIST(nomfichter$) ___ \ 

Le nom du fichier sous lequel vos donnees doivent etre abritfies est d’abord 
pourvu d’un suffixe, d’une extension. Pour cela, il faut conn attic la longueur dc 
ce nom (LEN). MIE>$ va dcraser rancienne extension (par exemplc DAI) et 
la remplacer par la nouvellc. Si BUP ne vous plait pas, prenez-done BAK, mais 
pensezau fail que la version 3.0 du GFA Basic utilise aussi cclte extension L.e 
changement de nom ne doit pas concerner nomfichierS, mais doit etre attnbud 
it une autre variable: 


backups = nomfichierS 
MID$(backup$,LEN(backup$)-2) = "BUP" 


Mais il pourrait arriver qu’il y ait deja un autre Backup, qui devra etre efface: 


IF EXIST(backupS) 
KILL backupS 
ENDIF 
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Le nom du fichier peut enfin devenir celui de son Backup: 


RENAME nomfichier$ AS backups 


Vous pourriez aussi enrichir vos programmes ulterieurs de deux autres 
instructions du GFA Basic. Essayez cette autre manure : 


I REM embranchements 
EVERY 20 GOSUB singsang 

Cls 

FOR i&= 1 TO 420 
hasard&=INT (RND*94) +33 

PRINT .. 

NEXT i& 

AFTER 400 GOSUB message 
RBOX 70,360,600,390 

PRINT AT (12,24);“pour terminer,appuyez sur une touche I 
vous avez deux secondes I"; 

REPEAT 

UNTIL INKEY$ < >"" OR back% = 2 I oh non I 

SOUND 1,0,0,0,0 

1 


PROCEDURE singsang 
ton&= INT(RND*12) +1 
SOUND 1 p 15,ton&,4,2 
RETURN 

PROCEDURE message 
CLS 

ALERT 3,"trop tard I | le caroussel repart!", 
1,"ah bon | oh non !",back% 

RETURN 


Ne vous attendezpas k ce que je fournisse des explications! Vous avez peut-etre 
compris que la variable back% est bien utile : elle est utilis6e ici dans la 
condition back%=2 pour controler si vous avez clique sur le bouton no 2 
portant l’indication "oh non!". Je vous recommande tout sp6cialement ces deux 
instructions: 


EVERY <rythme> GOSUB < procedure > 
AFTER <rythme> GOSUB < procedure > 


La premifere provoque la rep6tition perp6tuelle d’une procedure aprfes un 
certain dclai (en 200tiemes de secondes), la deuxicmc rcpete une fois la 
procfdure apres un certain d61ai (en 200ti5mes de secondes egalement). 
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Ccs deux instructions peuvent etre utilisees en liaison par exemple avec des 
changements d’heure ou de date, pour lesquels vous avez de plus les fonctio 
DATES, TIMES et SETTIMES. 


15.5. Vous allez savoir marcher tout seul ? 


Apr&s tout ce que j’ai fait pour vous, je peux maintenant vous laisser elaborer 
lesiege de votre banquc de donndes a titre d’exercice grace auxnouveautds que 
je vicns de vous presenter. 

D6sirez-vous maintenant protdger les efforts que vous avez produits pour faire 
cette banque ? Avec 


P3AVE<nom du programme: 


□ 


^instruction PSAVE est employee pour que le fichier sp6cifi6 soit stockd avec 
une proctection (anti-list ne pourra plus etre listd) 

Vous donncz a vos programmes une protection centre la visualisation, ce qui 
vous empechcra (vous et toute autre personne) de lister le texte du programme 
II est conseifld d’avoir auparavant sauvegarde un listing normal du programme. 
Qui plus est, U suffira de LOAD pour le lancer & chaque chargemenl. 

A un moment ou a un autre, vous aurez le sentiment qu’il n’y a plus nen a 
perfectionner dans votre programme, qu’il est parfait, et qud est temps de 
Ytmanciper en coupant le cordon ombilical avec 1 environnement GFA. 

Cela n'est pas simple, car vous savez qu’aucun programme en GFA Basic ne 
pouvait jusqu’ti present tourner sans son interpreter. C’est pourquoi vous av® 
dc plus lc fichier GFABASRO.PRG, ce qui sigmf.e GFA-BASIC- 
Run-Only-Interpreter. C'est le meine logiciel que celui que vous avez utilise 
jusqu’a present, il manque juste I’dditeur. 

Cliquez deux fois sur GFABASRO.PRG: le fichier est chargd dans l’Alari ST, 
ct une boite dc selection apparait. Si vous sdlectionnez un programme en GL A 
Basic il sera execute juste aprds son chargemenl. Cela ne fonctionnera qu avec 
des programmes sauvegardds par SAVE ou PSAVE; vous ne pourrez en aucun 
cas lancer ainsi des fichiers LST ! 

Encore autre chose : depuis le bureau GEM, cliquez une seule fois sur 
GFABASRO.PRG avec la souris pour provoquer son mversion-video. Uuvrez 
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alors Ie menu des options et s61ectionnez installer une application . Une boite 
de dialogue apparait dans laquelle figure dej& le nom GFABASRO.PRG : 



Bureau Fichi&r Visualisation E 


INSTALLER UNE APPLICATION 


Hen de I'appl ication! GFAfifi 
Type de docunent: OF m 
Type de ^application 

E3H Ffpri J TPS avec para 


Figure 8 : interprSteur Run-Only 

Entrez alors GFA ou BAS sous type de document (pas LST) et cliquez sur 
confirmer. A partir de ce moment, il vous suffira de cliquer sur un fichier GFA 
pour lancer aussitot l’interprdteur Run-Only, qui chargera lui-meme le 
programme GFA select ionnb et le fcra tourner. Si vous sauvez ce choix en 
cllquant ensuite sur sauvegarder le bureau, votre installation de ^application 
s’inscrit dans Ie fichier DESKTOPJNFdu GEM, et rcstera valable meme aprfis 
avoir dtcint puis rallumd votre Atari. Attention, cela ne vaut que pour la 
disquette sur laquelle sc trouve GFABASRO.PRG avec 1c DESKTOP INF 
adequat! 
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Traitement des donnees 


15.6. Resume 


Vous avcz amasse une multitude de connaissances qui vous seront utiles 
non seulement pour votre programme de mini-banque dc donates mais auss. 
dans tous vos projets ultdricurs si vous disposcz de la version 3.0, car la version 
2.0 ne possddait que tres peu des mots prdsentds ici (voir chapilre 16.). 

En dcrivant la procedure de correction, vous avez appris que VAR <nom du 
tableau() > permet d’atlribuer indirectement comme paramfetres des tableaux 
entiers de donates ft des procedures charges du traitement V°us Pouvez 
classer rapidement vos donndes grace a QSORTowm du uMsm£ pu 
SSORT<nom du tableauQ > . Vous pouvez changer de entere de In dans les 
tableaux de chaines de caractdres grace ft WITH < tableau numinque (). 

Vous pouvez disposer de la possibilitd d’insdrer ou d’effacer des elements 
particulars par "INSERT< noin du tableau() > = < nouvel dldment> et 
DELETE <nom du tableauQ >. Vous pouvez permuter deux variables de 
meme type (par exemple des dldments d’un tableau) en utilxsant 
"SWAP < variablej >, < variable_2 >". 

Vous pouvez visualiser le conteau d’une disquette par DIR ou FILES, ce qui 
vous permet aussi de ddtourner la sortie par TO vers un fichier ou par exemple 
1’imprfmante. Par ailleurs, RENAME ou NAME<ancien nom> AS 

< nouveau ttom > vous permet de renommer un fichier et KILL < nomfichier 
de l’effacer. 

Pour que votre Atari ST fasse de temps en temps autre chose qu’executer ics 
programmes ordinaires, pensez ft "EVERY < rythme > GOSUB 

< proeddure >. Si vous voulez ddclencher quelque chose au bout dun certain 
laps de temps, utiliscz "AFTER < durde > GOSUB < proeddure > . 

N’hdsitez pas enfin ft protdger vos petits secrets grace ft FS^FE< nom du 
nmgramme >. Si vous renoncez ft l’editeur, vous pouvez fare tourner vos 
programmes avec l’interprdteur Run-Only, et meme automatiquement si vous 

le ddsirez. 
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Vue d’ensemble sur le GFA Basic 


Chapitre 16 



C ’est vous que je viens d’entendre crier ainsi ? Que se passe-t-il ? Vous ne 
trouvez plus un des mols du GFA Basic ? II y en a un autre que vous ne 
reconnaissez plus ? Une erreur est apparue ? Vous etes a bout de nerfs ? 

Dans ce dernier cas, consultez quelqu’un d’autre ! ou sinon commerieez par 
faire une pause. Feuilletez ensuite lentement ce chapitre : vous y trouverez 
peut-etre un des mots recherches ou au inoins une piste qui vous depannera. 

J’ai reuni ici tous les termes du GFA Basic que vous avez rencontres tout au 
long de ce livre. Si vous voulez utifiser ia forme abregee d’un des termes GFA 
(qui sera alors complete par i’cditeur), elle est indiquee juste devant la forme 
developpee. Les differences entre la version 2.0 et 3.0 sont signalees par des 
crochets. 

Chaquc terme est suivi d’une ligne comportant une breve explication ainsi que 
de la reference du chapitre dans lequel le terme concerne est explique plus 
com pi Element. Les mots sinvis de trois points d’exclamation ont ete modifi6s 
par rapport a la version 2.0 ou n’y existe pas. 

Vous trouvez ensuite une page concernant l’adaptation en GFA Basic 3.0 des 
programmes ecrits en version 2.0. 


Au secours ! 
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16.1. Le vocabulaire 


ad 

ADD variable,quantity 

Augmenter une variable num6rique de la quantity indiquee (chap. 6) 
af!!! 

AFTER temps GOSUBprocedure version 3.0 

Appeler une procedure apres un temps d6termin6 (chap. 15) 

a 

ALERTsymbole, texte, bouton return, bouton texte, back 
Fabriquer des messages d’alarme (fenetre de dialogue) (chap. 10) 

ValeurAND Valeur 

Operation logique ET sur deux conditions (chap. 6) 
arr 

ARRAYFILL nom du tableau(),nombre 

Remplir les champs num6riques du tableau avec des valeurs (chap. 6) 

AS 

voir NAME | RENAME 
ASC(numero) 

Retrouver le code ASCII/ST d’un caractere (chap. 6) 

BASE 

voir OPTION BASE 
bo 

BOX x_gauche,y_haut,x_droite,y_bas 

trace un rectangle a partir des coordonnees xl,yl et x2,y2 des coins opposes 
(chap. 9) 

call! 

CASE version 3.0 
voir SELECT 

CHR$(nombre) 

Retrouver le caractere a partir du code ASCII/ST (chap. 6) 
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CIRCLE rayon x,y . 

Dessiner des cercles de rayon R dont le centre est d6fim par les coordonnees 

x,y (chap. 9) 
cle 

CLEAR 

Effacer la memoire des variables et des tableaux (chap. 6) 
cl 

CLOSE [#Numero defichier] 

Fermer un fichier (chap. 14) 

clw 

CLOSEWNumero defenetre 
Fermer une fenetre GEM n (chap. 11) 

CLS 

Effacer le contenu de l’6cran (chap. 10) 


co 

COLOR Valeur de la couleur 
Determiner la couleur utilisee (chap. 9) 


da 

DATA Valeur [,...] ^ 

Permet de stacker des valeurs qui pourront etre lues par READ (chap. 


6 ) 


DATES 

Indiquer la date-systame [et la mettre a jour (3.0)] (chap. 13) 


DEC variable 

Diminuer (decremented une variable de 1 unitd (chap. 6) 


defa !!! 

DEFAULT version 3.0 
voir SELECT 


defbi!!! 

DEFBIT domaine d’application version 3.0 

D6terminer le champ d’application d’une variable bool6enne 
(TRUE | FALSE) (chap. 6) 


Au secoure! 
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defb !!! 

DEFBYTdomaine d’application version 3.0 

D6terminer le champ d’application d’une variable en tant que nombre entier 
(0 - 255) (chap. 6) 

deff 

DEFFILL couleur, style, remplissage 
Determiner le motif de remplissage(chap. 9) 

deffllll 

DEFFLT domaine d 1 application 

Determiner le champ d’application d’une variable en tant que nombre d6cimal 
(chap, 6) 

DEFFN Nom[(argument)] 

Definir une fonction d’une seule ligne (chap. 8) 

defitU 

DEFINTdomaine d*application version 3.0 

Determiner le champ d’application d’une variable en tant que nombre entier 
( + | - 2 mrd) (chap. 6) 

de 

DEFLINE style, epaisseur, forme au debut, forme a la fin 
Determiner la forme d’une ligne (chap. 9) 

deflis 

DEFLISTNumero 

Format du listing de programme (seulement en mode direct) (chap. 1) 
defmo 

DEFMOUSE symbole 

Determiner le symbole de la souris (chap. 9) 
defmo 

DEFMOUSE string de forme 

D6terminer soi-meme la forme du curseur de la souris (chap. 9) 
defslll 

DEFSTR domaine d’application version 3.0 

Determiner le domaine d’application d’une variable en tant que string (chap. 6) 
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deft 

DEFTEXT couleur, type, angle de Vaffichage, grosseur 
Determiner les attributs d’un texte graphique (chap. 9) 

defw!!! 

DEFWRD domaine d*application version 3.0 

D6terminer le champ d’application d’une variable en tant que nombre entier 
( + |-32767) (chap. 6) 

Del 

DELETE tableau (indice) version 3.0 
Detruire un element d’un tableau (chap. 15) 

DIMNom du tableau(numero d’index [,-])[,-] 

Definir et enregistrer les tableaux (chap. 6) 

DIM ? (Nom du tableauQ) 

Obtenir le nombre des dlements du tableau (chap. 12) 

DIR [masque] [TOfichier \ imprimante] 

Afficher le r6pertoire du disque ou de la disquette (seulement les noms) 
(chap. 15) 

DTV variable, quantity 

Diviser une variable numerique par la quantite indiquee (chap. 5) 

Nombre DIV Nombre 

Division pour obtenir un nombre entier (chap. 6) 

DO 

instruction(s) 

LOOP 

Boucle sans condition de test C’est une boucle sans fin (chap. 5) 

lw\lu Iff 
DO 

instruction(s) 

LOOP WHILE | UNTIL condition 

Boucle de r6p6tition avec test de la condition k la fin (chap. 4) 


Au secours ! 
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do w | do u lit 

DO WHILE | UNTIL condition 
instmction(s) 

LOOP 

Boucle de repetition avec test de la condition au debut (chap. 4) 

DOWNTO 
voir FOR 

dr 

DRAWxlyl (TOx2,y2 ...) 

Dessiner des points, des lignes, des polygones (chap. 9) 
drill 

DRAW string-tortue 

Graphique avec la tortue aprds des ordres brefs (chap. 9) 
ell 

ELLIPSE x,y,x_rayon,y_rayon 
Dessiner des ellipses (chap. 9) 

el 

ELSE 
voir IF 

el III 

ELSE IF condition version 3.0 
voir IF 

END 

Terminer le programme (chap. 2) 
en 

ENDIF 
voir IF 

endfltt 

ENDFUNC version 3.0 
voir FUNCTION 

ends tit 

ENDSELECTversion 3.0 
voir SELECT 
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EOF(#numero defichier) 

Marquage de fin du fichier (chap. 14) 

era 

ERASE variableQ 

Effacer des tableaux et delibdrer la place mdmoire correspondante (chap. 6) 
ev III 

EVERY temps GOSUB procedure version 3.0 
Appeler une proc6dure a intervalle r6gulier (chap. 15) 

EXIST (nom du fichier) 

Teste si un nom de fichier existe sur le disque ou la disquette (chap. 14) 
ex 

EXITIF 

Permet de quitter (proprement) une boucle (chap. 6) 

FALSE 

Valeur bool6enne : logiquement faux = 0 (chap. 6) 
file 

FILES [masque] [TO fichier\imprimante] 

Afficher l’index (complet) du disque ou de la disquette (chap. 15) 

filese 

FILESELECT masque, indicatif, nom du fichier 

Ouvir la boite de choix de fichier (pour la sauvegarde ou le chargement) 
(chap. 14) 

fi 

FILL x,y 

Remplir une surface avec differents motifs (chap. 9) 

FlX(nombre) 

Partie entiere d’un nombre decimal (chap. 6) 


@ 

FN Nom[(Argument)] version 3.0 
Fonction definie par vous-meme (chap. 7) 


Au secours ! 
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f 

FOR compteur=debut TO \DOWNTOfin [STEP importance du pas] 
instruction(s) 

NEXT compteur 

Boucle de comptage (chap. 5) 

FRAC(nombre) 

Partie apres la virgule d’un nombre fractionnaire (chap. 6) 

fu inversion 3.0 

FUNCTION nom[ (paramdtre) ] 

[definition de la variable] 
instruction(s) 

RETURN valeur 
ENDFUNC 

D6finition d’une fonction sur plusieurs lignes (chap. 8) 
GETXl,Yl,X2,Y2,string,variable 

stocke (un morceau de) l’6cran sous forme de string (chap. 9) 

GET #n,(enregistrement) 

Permet de lire un enregistrement quelconque dans un fichier relatif. 
[g\@] 

GO SUB nom de la procedure 

Appeler une procedure dont le nom est "nom de la procedure" (chap. 8) 
got 

GOTO marque 

Sauter k un segment du programme (chap. 3) 

Permet un branchement inconditionnel. 


IF condition [THEN] 
instruction alors 
[ELSE 

instruction sinon] 

[ELSE IF...] 

ENDIF 

(bloc d’) Instruction de choix (chap. 2) 

Branche le programme sur differents blocs programmes suivant leur valeur 
logique "vrai ou faux". 
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INC variable 

Augmenter (incrdmenter) une variable num6rique d’une unite (chap. 5) 

inf 

i INFOW[#]numero de fenetre,texte 

Texte a faire figurer sur la ligne d’information (fenetre GEM) (chap. 11) 
INKEY$ 

Identifier un caractere entre a Paide du clavier (chap. 8) 
inp 

INPUT ["remarque"][;\,]variable(s) 

Entrer des donnees depuis le clavier pendant Pexecution du programme 
(chap. 2) 

inp 

INPUT #numero de fichier,variable(s) 

Entrer des donnees du disque ou de la disquette vers le programme (chap. 14) 
ins III version 3.0 

INSERT nom du tableau (index),element 
Ins6rer un element dans le tableau (chap. 15) 

INSTR (dibut,string source,string recherche) 

Position du string recherch6 dans un string source (chap. 8) 

INT(nombre) 

Fournit le nombre entier le plus approchant (inferieur ou 6gal) du nombre en 
question (chap. 6) 

ki 

KILL nolm dufichier 

Effacer un fichier sur le disque ou la disquette (chap. 15) 

LEFTS (string source,nombre) 

Partie gauche d’un string (chap. 8) 

LEN (string) 

Longueur d’un string (chap. 8) 
le 

[LET] variable = valeur 

Affecter une valeur a une variable (chap. 6) 


Au secours ! 
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li 

LINE XI, Y1,X2, Y2 

relie les points (xl,yl) et (x2,y2) par une droite (chap. 9) 
li [li input] 

LINE INPUT ["remarque"][;\ f ]string 
Lire un string depuis le clavier (chap. 13) 

li [li input] 

LINE INPUT #numero de fichier,string 

Charge un string depuis le disque ou la disquette (chap. 14) 

ll 

LLIST 

Sortir le listing du programme sur Pimprimante (chap. 1) 
loa 

LOAD nom du fichier 

Charger un programme contenu sur un fichier dans la memoire de travail 
(chap. 1) 

loc 

LOCAL variable(s) 

Declarer une variable comme d’usage local (dans une fonction ou une 
proc6dure) (chap. 7) 

local HI version 3.0 
LOCATE ligne, colonne 

Positionner le curseur sur la colonne et ligne specifiees (chap. 7). Pour la 
version 2.0, on remplacera locate par print AT (colonne, ligne) qui permet 
d’afficher des donnees a un endroit precis de Pecran. 

I 

LOOP 
voir DO 

Ipr 

LPRINT [expression ][;][, ] 

Sortir des donnees sur Pimprimante(chap. 13) 

MENU tableau () 

Reprendre un texte pour un menu deroulant (GEM) (chap. 11) 
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me off 

MENUOFF . , , -f-i\ 

Replacer dans son etat normal une option pomt6e dans un menu (chap, li) 

MENU(O) 

Option retenue dans un menu (GEM) (chap. 11) 

MID$(string source,debut [,nombre]) 

Segment situe dans le string (chap. 8) 

MID$(string cible,debut [,nombre]) = stringpartiel 
Remplacer un string par des signes (chap. 8) 

Nombre MOD Nombre 

Reste cPune division d’un nombre entier (chap. 6) 
mou 

MOUSE x,y,touche 

Demander la position du curseur ainsi que le statut des touches de la souris 
(chap. 9) 

MOUSEK J - 

Sert k tester la position actuelle de la souris ainsi que Tetat des 2 boutons de la 

souris (chap. 8) 

MUL variable,quantity 

Multiplier une variable numcrique par la quantite indiquee (chap. 5) 


na 

NAME ancien nom AS nouveau nom 

Renommer un fichier sur le disque ou la disquette (chap. 15) 
NEW 

Effacer le programme dans F6diteur (chap. 1) 
n 

NEXT 
voir FOR 

NOTvaleur version 3.0 

Inversion de Pexpression logique qui suit (chap. 6) 

OFF 

voir MENU 


Au secours ! 
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ON variable GO SUB liste des procedures 

Appeler par des valeurs numeriques (choix multiple) (chap. 10) 

ONMENU 

Controler Tappel dans les menus (chap. 11) 

ON MENU GOSUB nom de la procedure 
Appeler les proc6dures par le menu GEM (chap. 11) 


oa[0"A"] 

OPEN "A",#numero du fichier,nom dufichier 
Ouvrir un fichier pour y ajouter des donnees (chap. 14) 


oi[OT] 

OPEN 'T\#numero du fichier,nom du fichier 
Ouvrir un fichier pour y lire les donnees (chap. 14) 


oo[0"0"J 

OPEN "0",#numero dufichier,nom dufichier 
Ouvrir un fichier pour y ecrire des donn6es (chap. 14) 

o w 

OPENWnumero defenetre 
Ouvrir une fenetre GEM (chap. 11) 

opt base 

OPTION BASE nombre 

Definir la limite inferieure (0 ou 1) pour Pindex de tableau (chap. 6) 

Valeur OR valeur 

Operation logique OU sur deux conditions (chap. 6) 
pa 

PAUSE cinquantieme de seconde 

Interrompt l’execution du programme pendant un certain temps (chap. 14) 
pb 

PB OX x_gauch e,y_h au t,x_droite,y_bas 
Dessiner et remplir des carres (chap. 9) 

pc 

PCIRCLE x,y,rayon 

Dessiner et remplir des cercles (chap. 9) 
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pe 

PELLIPSE x,ypc_rayon,y rayon 
Dessiner et remplir des ellipses (chap. 9) 

pi 

PLOTx,y 

Dessiner des points (chap. 9) 

poly! 

POLYFILL coinspc(),y() 

Dessiner et remplir des polygones (chap. 9) 

pol 

POLYLINE coinspc(),y() 

Dessiner des polygones (chap. 9) 

prb 

PRBOX x_gauche,y_haut,x_droite,y_bas 

Dessiner et remplir des carres k coins arrondis (chap. 9) 


PRINT [A T(colonne, ligne);][expression][; \,] 

Afficher des donn6es sur l’6cran a la colonne et ligne specifies (chap. 2) ' 


PRINT #numero du fichier } donnees [;] 

Inscrire des donn6es sur le disque dur ou la disquette (chap. 14) 
pro 

PROCEDURE nom[(parametre)] 
definition de variables 
instruction(s) 

RETURN 

Definition d’une procddure (sous-programme) (chap. 7) 
psa 

PSAVE nom dufichier 

Sauvegarder le programme sur le disque ou la disquette avec la protection LIST 
(chap. 15) 

PUT XI, Yl, variable-string 

Afficher a l’dcran le contenu d’un string (chap. 9) 


Au secours ! 
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qs III version 3.0 

QSORT tableau( + \-)[WITH crit$re()] 

Trier les elements d’un tableau d’aprfcs leur taille (quicksort) (chap. 15) 

0 

QUIT 

Permet de quitter Pinterpreteur (chap. 1) 

RANDOM(nombre) 

Fournir un nombre al6atoire entier (chap. 5) 
ralll 

RANDOMIZE version 3.0 

Lancer le g6nerateur de nombres al6atoires(chap. 5) 
rb 

RBOXx_gauche,y_hautyX_droite y y has 

Dessiner et remplir un carre avec des coins arrondis (chap. 9) 
rea 

READ variable],...] 

Lire les Elements DATA et les transformer en variables(chap. 6) 
r 

REM suite de caractires 
Commentaire 0(0 (chap. 2) 

ren III version 3.0 

RENAME ancien nom AS nouveau nom 
Renommer un fichier (chap. 15) 

rep 

REPEAT 

instruction(s) 

UNTIL condition 

Boucle de repetition avec test de la condition a la fin (chap. 4) 
res 

RESTORE [marque] 

Ramener le pointeur DATA au d6but ou sur une marque specifiee (chap. 13) 
ret III 

RETURN[valeur] 

Fin de la procedure ou retour de la valeur sous FUNCTION(3.0) (chap. 7) 
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RIGHT$(string source, nombre) 

Partie droite d’un string (chap. 10) 

ru 

RUN [nom dufichier] 

(Re)Lancer le programme (chap. 1) 

sa 

SAVE nom du fichier 

Sauvegarder un programme Sur le disque ou la disquette (chap. 1) 

s HI Version 3.0 
SELECT variable 
CASE valeur [TO valeurj 
[instruction(s)] 

[DEFAULT 

instruction(s)] 

ENDSELECT 
Choix rdpdtitif (chap. 10) 

Permet des branchements en fonction de la valeur de ^expression numerique. 
set 

SETCOLOR registre des couleurs,rouge, vert, bleu 

Placer du rouge, du vert et du bleu dans un registre (chap. 9) 

setd lit version 3.0 
SETDRAW x,y,angle 

Positionner le curseur-tortue et le diriger (chap. 9) 
sett 

SETTIME heure,date 

Fixer l’heure et la date (chap. 8) 

sg 

SGET variable-string 

Archiver le contenu de P6cran sous forme de chaine de caracteres (chap. 9) 
so 

SOUND canal,puissance,note,octave,duree 
Produire des sons (chap. 9) 

SPACE$(nombre) 

Produit une chaine composee de (x) caracteres blancs (chap. 8) 


Au secours ! 
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spr 

SPRITE string de forme [pc,y] 

Ddfinir des objets graphiques (sprites) (chap. 9) 

spu 

SPUT variable-string 

Copie rapide d’une chaine de 32000 caractfcres dans la mdmoire ecran (chap. 9) 
ss til version 3.0 

SSORT tableau ( + | -)[WITH critire() ] 

Trier les 616ments d’un tableau d’apr&s leur taille (shellsort) (chap. 15) 

STEP 
voir FOR 

STR$(nombre) 

Convertit une valeur numerique (x) en chaine de caracteres (chap. 6) 
STRING$(nombre,caractere) 

String comme chaine compos6e du meme caractere (chap. 8) 
su 

SUB variable,quantity 

Diminuer une variable numerique de la quantite indiquee (chap. 5) 
sw 

SWAP variable_1, variable_2 

Echanger deux valeurs de variable (chap. 15) 

t 

TEXTx,y,[largeur, ]string 

Afficher un texte graphique (au pixel pres) k partir du point de coordonnees 
(x,y) (chap. 9) 

lit 

THEN 
voir IF 

tim 

TIMES 

Indiquer Pheure-systeme [et mettre a Pheure(3.0)] (chap. 8) 
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Vue d’ensemble sur le GFA Basic 


tit 

TITLEW[#Jnumero de fenetre, texte 

Texte pour la ligne de litre (fenetre du GEM) (chap. 11) 

TO 

voir FOR (et aussi CASE) 
to III 

TOPW [#]numero de fenetre 
Active la fenetre NO (chap. 11) 

TRUE 

Valeur booleenne : logiquement vrai = -1 (chap. 6) 
TRUNC(nombre) 

Partie entiere d’un nombre decimal (chap. 6) 

u lit 
UNTIL 

voir DO | REPEAT 
UPPERS variable-string 

Convertir les minuscules d’un string en majuscules (chap. 8) 
VAL(string) 

Valeur numdrique d’un string (chap. 6) 

!!! 

VAR parametre 

Parametre variable dans une proc6dure ou une fonction (chap. 7) 
we 

WEND 
voir WHILE 

w 

WHILE condition 
instruction(s) 

WEND 

Boucle de repetition avec test de la condition au debut (chap. 4) 

w HI 
WHILE 

voir DO I LOOP 


Au secours ! 
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inversion 3.0 
WITH 

permet d’indiquer un crit6re de tri sous forme de tableau comportant au moins 

256 elements. 

voir QSORT | SSORT 

ValeurXOR valeur 

Operation logique SOIT...SOIT sur deux conditions (chap. 6) 


16.2. Du GFA 2.0 au GFA 3.0 


1. Les programmes "BAS ecrits en GFA Basic version 2.0 doivent tout 
d’abord etre sauvegardds sur une disquette ou un disque dur par Save,A 
et devenir ainsi des fichiers avec extension LST, Merge permet alors de les 
charger dans Pediteur du GFA Basic version 3.0 pour les traiter. Apres 
quoi vous pouvez les sauvegarder en les faisant devenir des fichiers portant 
Pextension soit GFA soit LST. ATTENTION : Pinterpreteur GFA ne 
comprend pas les lignes de programme commengant par la double-fleche 
= = > ! 

2. Dans la version 3.0, on peut appeler les procedures directement par leur 
nom, sans GOSUB ni arobas (@). La definition de fonctions sur plusieurs 
lignes est rendue possible par FUNCTION (on les appelle par Les 
variables peuvent etre transmises comme parametres et etre restituees 
modifiees apres traitement par la procedure (ou la fonction). 

3. La touche <Help> (ou < control >< Help >) permet le repliage 
(folding) des procedures dans la version GFA Basic 3.0, ce qui est tres 
confortable lors de Pecriture de programmes longs comportant de 
multiples procedures. 

4. La nouvelle version GFA Basic 3.0 offre une veritable arithmetique des 
nombres entiers, ce qui rend les operations sur les nombres entiers 
beaucoup plus rapides qu’avec le GFA Basic version 2.0. On peut disposer 
de nombres longs (INTEGER - 4 byte - %), moyens (WORD - 2 byte - &) 
ou courts (BYTE -1 byte - |). 

Les nombres decimaux vont jusqu’a 8 bytes (seulement 6 dans le GFA Basic 
version 2.0), ce qui porte la precision apres la virgule de 11 a 13 places et 
augmente le champ des valeurs de 10 ^ 154 a 10 ^ 308. 
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Un mine de renseigiiements bien utiles 


Chapitre 17 



I I n’esl pas rare de rencontrer dcs problfemes en programmanl, mais ils 
peuveut vous faire pcrdre beaucoup de temps. Ils pcuvenl avoir des origines 
tres diverses. Jc ne peux pas vous aider s’il s’agit de dicouragement, diversion. 
Dans CCS cas-D, ii vaut mieux abandonner votre Atari pendant quelques temps, 
afin qu’il vous laisse en paix. 11 m’esl possible de vous aider si vous avez perdu 
le fil directcur de votre programme : vous manque-t-il un mot ? regardez 
ci-dessous, vous allez peut-etre le trouver.... 


17.1. Les mots cles du GFA Basic 


Ajfichage 


PRINT, LPRINT, AT, LOCATE(3.0) 


Boucles 


voir r6p6tition 


Commentaire 


REM, 


Au secours ! 
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Conditions 


IF, THEN, ELSE, ELSE IF(3.0), SELECT(3.0), CASE(3.0), DEFAULT(3.0), ENDIF, 
ENDSELECT(3.0), ON GOSUB, EXIT IF, AND, NOT, OR, XOR, =,<,<=,>, 
>=,<>,= = 


Definitions 


DEFFN, FUNCTION(3.0), PROCEDURE, LOCAL, RETURN 


Donnies 


DIM, DIM ?, OPTION BASE, ERASE, CLEAR, READ, DATA, RESTORE, 
LOCAL, !, | (3.0), &(3.0), %, #, $, DEFBIT(3.0), DEFBYT(3.0), 
DEFINT(3.0) DEFFLT(3.0), DEFSTR(3.0), DEFWRD(3.0), DATE$, TIME$, 
SETTIME, SWAP, QSORT(3.0), SSORT(3.0), WITH(3.0) 


Ecran 


CLS, LOCATE(3.0), PRINT, PRINT AT 


Entree de donnees 


INKEY$, INPUT, LINE INPUT 


Fenetre 


voir GEM 


Fichier/disque 


OPEN, CLOSE, EOF, INPUT #, PRINT #, DIR, FILES, FILESELECT, KILL, 
NAME, RENAME(3.0), LOAD, SAVE, PSAVE 


Fonctions 


DEFFN, FN, FUNCTION(3.0), ENDFUNC(3.0), LOCAL, VAR(3.0), @, 


voir entre autres mathfcmatiques et strings 
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Un mine de renseignements bien utiles 


GEM 


ALERT, FILESELECT, OPENW, CLOSEW, TITLEW, INFOW, TOPW(3.0), 
MENU, ON MENU, ON MENU GOSUB, MOUSE, MOUSEK, DEFMOUSE 


Graphique 


CLS, COLOR, SETCOLOR, DEFFILL, DEFLINE, DEFTEXT, DEFMOUSE, 
SPRITE, PLOT, LINE, DRAW, FILL, BOX, RBOX. CIRCLE, ELLIPSE, POLYLINE, 
PBOX, PRBOX, PCIRCLE, PELLIPSE, POLYFILL, GET, PUT. SGET.SPUT 


Imprimante 


LPRINT, LUST 


Mathematiques 


= DIV, MOD, LET, INC, DEC, ADD, SUB, MUL, DIV, INT, FIX, 

ASC, CHR$, VAL, STR$, RANDOM, SWAP __ 


Musique 


SOUND 


Nombres 


voir donnGes et math6matiques 


□ 


Procedure 


PROCEDURE, RETURN, LOCAL, GOSUB, @ 


Tableaux 


voir donnfees 


Programme 


REM, END, FN, GOSUB, GOTO, @, RUN, DEFFN, FUNCTION(3.0), 
ENDFUNC(3.0), PROCEDURE, RETURN, PAUSE _ 


Au secours ! 
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Repetition 


FOR, TO, DOWNTO, NEXT, DO, LOOP, WHILE, UNTIL, WEND, REPEAT, 
EXIT IF, GOTO, < label > 


Sauts 


GOTO, GOSUB, EXIT IF, < marque :> 


Selection par menus 


voir GEM 


Strings 


CHR$, STR$, SPACES, STRINGS, VAL, LEN, INSTR, LEFTS, RIGHTS, MID$, +, 
UPPERS, DATES, TIMES, INKEY$ 


Systeme 


DIR, FILES, KILL, NAME, RENAME(3.0), ALERT, FILESELECT 


17.2. Pour eviter les erreurs 


1. Tous vos blocs sont-ils bien pourvus d’une marque de d6but et d’une 
marque de fin de bloc ? (sdlection, boucle, procedure, fonction) 

2. Les conditions introduites apres IF, CASE, FOR, WHILE, UNTIL 
peuvent-elles etre remplies ? 

3. Avez-vous bien signal6 le type de vos variables a l’aide de 


!, &, |, %,#,$? 


4. Les variables transmises ont-elles bien le type et la valeur qu’il faut ? Le 
nombre des parametres transmis correspond-il a celui des parametres 
definis ? Si necessaire, certains parametres sont ils bien definis comme 
6tant variables ? 
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Un mine de renseignements bien utiles 


5. Avez-vous bien fait attention k Putilisation des petites choses comme : 


\; = () , !|&%#$ 


L’editeur filtre de lui-meme pas mal d’erreurs, il ne vous laisse pas alter plus 
loin et vous bloque sur la ligne erronde. Si vous voulez reporter a plus tard la 
recherche de la cause de cette erreur afin de pouvoir dcrire tout de suite la ligne 
suivante, placez une apostrophe (’) au ddbut de la ligne: vous vous debarrassez 
ainsi momentandment de ce tracas, mais attention, ce n’est que partie remise... 


17.3. Pour conclure 


Vous voila k la fin de votre initiation au GFA Basic. J’ai du en exclure une foule 
de termes trds utiles de la version 3.0. Vous saurez trds certainement 
maintenant vous debrouiller seul en ce qui concerne la programmation en GFA 
Basic, mais vous pourrez aussi vous appuyer sur le manuel et les autres livres 
existants. 

Vous aurez bien sur besoin de recourir encore a ce livre, et il ne peut pas etre 
nuisible de le reprendre du debut k la fin de temps en temps. 


Au secours! 
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Les commandes de Vediteur 


Annexe A 



1. Deplacement du curseur 


Touche du clavier _Effet obtenu 


Clic avec la souris(gauche) 

Rdche montante 
Rfcche descendant© 

Rfcche k gauche 
R6che k droite 

< Control > < f Ifcche k gauche > 

< Control > <fl6che k droite > 

< Control > <fl$che montante > 

< Control > < fldche descendante > 
<ClrHome> 

< Control > < ClrHome > 

< Control > -Z 

< Control > -G 


Position quelconque 
Une ligne vers le haut 
line ligne vers le bas 
Un espace vers la gauche 
Un espace vers la droite 
D6but d'une ligne 
Rn d'une ligne 
Remonter 
Descend re 
D6but de page 
D6but du texte 
Rn du texte 

Saut jusqu'i un no de ligne (3.0) 


II y a un controle de la syntaxe avant chaque changement de ligne ! 

2. Inserer et effacer 


Touche du clavier 

Effet obtenu 

< F8> 

Ecraser en r66crivant dessus 

< Insert > 

Insurer une nouvelle ligne 

< Control > -N 

Insurer une nouvelle ligne(3.0) 

< Control > < Delete > 

Effacer une ligne 

< Control > -Y 

Effacer une ligne 
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< Control > -U Rappeler une ligne aprfcs gommage (3.0) 

< Delete > Effacer le caract&re suivant le curseur 

< Backspace > Effacer le caract&re pr6c6dant le curseur 


3. Manipulation des blocs 




< Shift > <F5> 

marquer le d6but d’un bloc 

<F5> 

marquer la fin d’un bloc 

<F4> + H(Hide) 

6ter les marques du bloc 

< F4> +C(Copy) 

copier le bloc 

<F4> + M(Move) 

d6placer le bloc 

< F4 > + < Control > -D 

effacer le bloc 

< F4> +S(Start) 

placer le curseur au d£but du bloc 

<F4> + E(End) 

placer le curseur k la fin du bloc 

< F4> + L(Llist) 

imprimer le bloc sur imprimante 

<F4> +W(Write) 

sauvegarder le bloc sur une disquette 

< F2> (= Merge) 

charger un bloc depuis une disquette 
(seulement pour les fichiers ".LST") 


4. Autres operations 


Touche du clavier 

Effet obtenu 

<Tab> 

curseur d6placG de 8 positions vers la droite 

< Control > <Tab> 

curseur d6plac6 de 8 positions vers la gauche 

<Undo> 

annulation des modifications faites dans une 
ligne lorsque le curseur s'y trouve encore; 

"pliage et d6pliage" dans le folding 

<Help> 

folding d’une procedure (version 3.0) 

< Control > < Help > 

folding de plusieurs procedures situ6es apr&s 
le curseur (version 3.0) 

< Control >-F 

recherche d’un segment de texte 

< Control >-R 

remplacement d’un segment de texte (2.0) 

< Control >-E 

remplacement d’un segment de texte (3.0) 

<Esc> 

mode direct; annulation par < control > 

< shift de gauche > < alternate > 

< Control > + 

mode direct, donne des notes de musiques 
en version 3.0 

< Shift > + 

mode direct, donne une ligne de + 

< Alternate > 

interruption du programme 
quitter l’6diteur et le GFA Basic 3.0 

< Shift > <F3> 

<esc> 

mode direct version 2.0 ; annulation par 
< ESC >< RETURN > 
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Les menus de GFA Basic 



<F1> 

Load 

Ohargementde programmes GFA-/BAS 

<ShiftxF1> 

Save 

Sauvegarde de programmes GFA-/BAS 

<F2> 

Merge 

Chargement (par ajout) de programmes LST 

<ShiftxF2> 

Save, A 

Sauvegarde de programmes LST 

<F3> 

Llist Impression du listing de voire programme 

<ShiftxF3> 

Quit 

Sortie du systeme GFA Basic 

<F4> 

Block 

Menu des operations sur tes blocs : 

C 

Copy 

-copier le bloc 

M 

Move 

-ddplacer le bloc 

W 

Write 

-sauvegarder le bloc sur une disquette 

L 

. Llist 

-imprimer le bloc sur imprimante 

s 

Start 

-rechercher le d&but du bloc 

E 

End 

-rechercher la fin du bloc 


<ControlxD> A Delete -effacer le bloc 

H Hide Oter les marques du bloc 

<Shift><F4> New Effacer le programme dans I'editeur 

<F5> BlkEnd Marquer la fin d h un bloc 

<ShiftxF5> BlkSta Marquer le dSbut d h un bloc 

< Fg> Find Appeler la routine de recherche 

<ShiftxF6> Replac(e) Appeler ia routine de remplaeement 

<F7> PgDown Faire monter la page 

<ShiftxF7> PgUp Faire descendra la page 

<F8> tnsert/Gverwr Inserer ou r£ecrire 

<ShiftxF8> Txt16/TextB 23/48 lignes (seulement en monochrome !) 
<F9> Flip Dernier affichage de !'6cran 

<ShiftxF9> Direct Appefer le mode direct _ 
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<F10> 

Test 

Controle de la structure du bloc 

<ShiftxF10> 

Run 

Lancer le programme 


3. La version 3.0 comprend en plus 


>ossibilites suivantes 


Le symbole Atari a gauche fait disparaitre le menu principal et ouvre un menu 
deroulant: 




Save 


Sauvegarde d’un programme sur urie disquette 
ou un disque dur dans des fichiers W .GFA H 

Load 


Chargement d’un fichier \GFA" 

Deflist 


Fixer le mode d'6criture de vos programmes : 


0 

L'editeur ecrit en lettres majuscules les mots 
du vocabulaire du GFA Basic et en minuscules 
les noms de variables, procedures et fonctions 


1 

Les mots du vocabulaire Basic GFA et les 
noms commencent par une majuscule suivie de 
minuscules, le reste est ecrit en minuscules. 


2 

Comme sous DEFLIST 0 : de plus, les variables 
sans marque regoivent le signe "# H 


3 

Comme sous DEFLIST 1 : de plus, les variables 
sans marque regoivent le signe "# M (definition 
automatique : 0 pour la version 3.0 et 1 pour 
la version 2.0) 

Nouveaux noms 


Savoir si de nouvelles variables vont etre 
definies (predefinition : non) 

Editor 

Retour sous I'editeur 


A Textremite droite du menu principal, vous trouvez le numero de ligne actuel (a 
partir de 0). L’heute est indiquee au-dessus, vous pouvez cliquer dessus pour la 
modifier. 

Lors des sauvegardes avec Save ou Save,A, il y a confection d’un fichier de meme 
nom portant f extension M .BAK" (=Backup). Toutes les versions 2 du GFA Basic 
n’offrent pas forcement ces Backup ! 
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Tableau des carecteres ASCII de TAtari 


Annexe C 


Tableau M caracU-rcs ASCII de'l’Atari 


L es tableaux suivants vous 
nombres decimaux. 


donne les codes ASCII de TAtari ainsi que les 


—- M 








«■ 

9 

2 = @ 

3 = 0 

4 

: 0 

5 = @ 

mmm 

SI 

7 * @ 

8 = 0 

9 

= 0 

10 = 0 

11 = 

3 

12 =0 

13 = 0 

14 

HBBJ 

15 = 0 

16 = 

3 

17 = Q 

iSPau 

19 

= 0 

20 . = 0 

21 = 

3 

22 = 0 


24 

= a 

25 -- § 

26 = 

a 

27 = 0 

■n 

29 

= 0 

30 = □ 

31 = 

□ 

32 ■ 0 

■n 

34 

sun 

35 =0 

36 = 

a 

37 = 0 

38 = 0 

39 

= 0 

40 =0 

41 = 

0 

42 =0 

43 = 0 

44 

= 0 

45 = Q 



47 = 0 

48 = @ 

49 

= 0 

50 = 0 



52 = 0 

iffr nB 

54 

= 0 
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Tableau des caracteres ASCII de UAtari 
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Le GFA Basic V 3.5 


Annexe D 



1. Introduction 


Cette nouvelle mise k jour vous propose, comme vous allez le constater, un bon 
nombre de fonctions suppldmentaires et aussi des possibility inedites ( et tant 
attendues!) de rediteur. 


2. L’editeur 



Celui-ci conserve bien sur la facility d’emploi qui le caracterise et se permet meme 
d’augmenter sa rapidite. 

Voyons ce qu’il nous apporte: 

- II devient possible de replier (et dcplier) les fonctions comme vous le 
faites pour les procedures, c’est-k-dire en vous positionnant sur 
FUNCTION avec le curseur, puis en appuyant sur Help. 


- La recherche s’effectue maintenant dans les procedures et fonctions 
repliees. 
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3. Les nouvelles fonctions 


Toutes, sauf deux, sont consacrees au calcul matriciel et vectoriel. Mathematiciens 
et physiciens seront combles ! En voici la liste et leur description sommaire. Pour 
plus de precisions, veuillez vous reporter au manuel. 

3.1. Les fonctions matricielles 


MATBASE 0 
MAT BASE 1 

Initialisation du mode matriciel avec debut d’indiciation a 1 ou 0. 

MAT CLR a() 

Initialise a 0 tous les elements d’une matrice. 

MAT SET a()=x 

Initialise a x tous les elements d’une matrice. 

MAT ONE a() 

Cree une matrice unite. 

MAT READ a() 

Place dans une matrice les el6ments contenus dans des DATA. 

MAT PRINT [#i,]a()[,g,n] 

Ecrit tout ou partie d’une matrice dans un fichier (ecran, imprimante ou autre). 

MAT INPUT #i,a() 

Lit une matrice dans un fichier. 

MAT CPY a([ij])=b([k,lj)[,h,w] 

Copie tout ou partie d’une matrice dans une autre. 

MATXCPY a([ij])=b([k,l])[,h,w] 

Copie la transposition de tout ou partie d’une matrice dans une autre. 

MAT TRANS a()[=b()] 

Transpose une matrice ou copie sa transposee dans une autre. 
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MAT ADD a()=b()+c() 

MAT ADD a(),b() 

MAT ADD a()pc 

Fonctions d’ addition de matrices. 

MAT SUB a()=b()-c() 

MAT SUB a(),b() 

MAT SUB a() pc 

Fonctions de soustraction de matrices. 

MAT MUL a()=b()*c() 

MAT MUL x=a()*b() 

MAT MUL x=a()*b()*c() 

Fonctions de multiplication de matrices. 


MAT NORM a(),0 
MAT NORM a(),l 

Fonctions de normalisation de matrices par lignes et par colonnes. 


MAT DET x=a([i,j])[,n] 

Calcule le ddterminant d’une matrice. 

MAT QDET x=a([i,j])[,n] 

Calcule d’une manifcre optimisde le determinant d’une matnce. 

MAT RANG x=a([ij])[,n] 

Calcule le rang d’une matrice. 

MATINVa()=b() 

Place l’inverse d’une matrice dans une autre. 


3.2. Les autres fonctions 


Donne le contenu du pointeur des DATA. Renvoie 0 si le prochain READ doit 
renvoyer un ’out of DATA’. 

DATA= 

Positionne le pointeur des DATA a une valeur precedemment sauvegardee 
avec _DATA. 
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Index des mots-clds 


Annexe E 



A 


ADD . 
ALERT 
ASC .. 


..5-60 

10-132 

..6-79 


B 


BOX 


9-112 


c 


CASE. 

CHR$. 

CLOSE ... 
CLOSEW.. 
CLOSEWO 

CLS . 

COLOR ... 
Copie. 


10- 130 
..6-79 
14-179 

11- 143 
11-144 
.9-113 
.9-115 
... 1-6 
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D 


DATA. 

DATES .... 

DEC. 

Default .... 
DEFFILL .. 
DEFLINE . 
DEFMOUSE 
DEFTEXT . 
DELETE .. 

DIM. 

DIR . 

Direct. 

DIV . 

DO LOOP . 
DRAW .... 


.11-142 

.8-100 

.5-58 

.10-135 

.9-114 

.9-115 

.9-118 

.9-117 

.15-200 

.6-76 

.15-200 

. 1-11 

.5-60 

.4-45 

9-111,9-119 


E 


ELSEIF .2-21 

END.2-20 

Endselect.10-130 

EOF.14-184 

EXIT .14-180 

F 

FILES .15-200 

Fileselect.14-185 

FILL.9-114 

FIX.6-73 

FOR.5-55 

FOR TO NEXT .5-56 

Formatage .1-5 

Formater .14 

FRAC. 6-73 
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Index des mots-cWs 

G 

rrPT ;.... 

.9-116 

PtHTH .- * 

.4-40 

1 

TP FT <1F PNDTF 

.2-21 

XNC . 

.5-58 

tnfow . 

.11-148 

INlfPVJft . 

.8-98 - 8-99 

TMPT TT .. . . 

.2-15 


.1-9 

TM^PPT . * . . 

.15-199 

IM^TR . 

.8-103 

I NTT 

.6-73 

K 

irn T _. ... 

.15-200 

L 

T PT . 

.6-70 

T liet ....... 

.1-11 


.1-10 

T "DT? TNTT ....... 

.13-175 

M 

A/rpMTT OFF 

.11-150 

MP7MT Tfffi . 

.11-150 


.1-10 

mths; 

.8-103 

MOT TSF 

.9-116 

MOTTSFK 

.8-99 

MTTT . 

.5-60 
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N 


New.1-11 

NEXT .5-55 



OPEN.. 
OPENo 
OPENW 


14-178 

11-143 

11-143 


P 


PAUSE. 

PCIRCLE ... 
PELLIPSE .. 
POLYFILL.. 
POLYLINE . 

PRINT. 

PROCEDURE 
PSAVE . 


...14-185 
....9-113 
....9-113 
....9-114 
....9-113 
2-14,2-23 

.7-84 

... 15-203 


Q 


QSORT .15-198 

Quit .1-11 

R 

RAMDOM.5-54 

RANDOMIZE.5-53 - 5-54 

READ .11-142 

REM .2-20 

RENAME .15-200 

REPEAT...UNTIL.3-31 

RESTORE.13-164 

ROUND.6-73 

Run .1-11 
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Index des mots-clis 


s 



.14 

. 

QflVP . 

.1-10 

A . 

.1-10 

WT FPT . 

.10-130 

SETCOLOR . 

.9-115 

WTTCR AW . 

.9-120 

WTTTMF . 

.8-100 

<5HFT . 

.9-116 

<5fYRTTR . 

...1-6 

<%nTTMT) . 

.9-120 

^PArF.s; . 

.8-100,13-166 

<;pt it . 

.9-116 

<\<sn&T . 

.15-198 

<;trtno.<!; . 

.8-100 

<?TTR . 

.5-60 

SWAP . 

.15-200 


T 


Test.... 
TIMES . 
TITLEW 
TRUNC 


.. 1-11 

. 8-100 

11-148 

..6-73 


u 

UPPERS. 8 - 100 

V 

VAR.15-193 

Vide .10-131 


Annexes 
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W 

WAVE .9-121 

WHILE WEND.4-45 

WITH.15-199 
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BIEN DEBUTER 
EN GFA BASIC 


SCHUMANN 

Connaissez-vous le GFA Basic, le langage le plus evolue sur ATARI 
ST+STE? N’avez-vous jamais reve de concevoir des applications 
performantes, des programmes elabores, tirant le meilleur de votre 
machine? Alors voici le livre qu’il vous faut. A I'aicJe de nombreux 
exemples clairs et progressifs, BIEN DEBUTER EN GFA BASIC expli- 
que le vocabulaire fondamental de ce langage. Effectuez rapidement 
vos premiers pas en programmation, decouvrez les boucles, les 
procedures, la manipulation des donnees, la creation graphique et 
sonore... A chacune de vos idees, vous trouverez rapidement I'outil 
approprie, a chacun de vos problemes, une aide precieuse et detail- 
lee grace a un glossaire complet de toutes les fonctions du langage. 
Progressivement vous apprendrez a utiliser I’editeur, les notions de 
base du GFA Basic, puis I’ensemble des commandes du langage. 
Enfin profitez des nombreuses astuces et sachez eviter les pieges 
lors de vos developpements. 

Principaux points traites: 

• Introduction a I’editeur du GFA Basic, 

• Instructions et declaration de variables. 

• Saisie et sortie de donnees. 

• Programmation de boucles a I'aide d’exemples. 

• Decouverte de la programmation structure. 

• Premieres applications graphiques. 

• Manipulation de differents fichiers. 

• Realisation d’un petit programme de base de donnees. 

• Comment eviter les pieges et les erreurs communes. 

• Convertir des programmes du GFA Basic 2.0 vers la version 3,0. 

• Glossaire complet de toutes les fonctions du langage. 

Ref.: ML 527. Prix: 129 F. 

ISBN 2-86899-169-6 / ISSN 0980-1928. 

EDITIONS /MICRO APPLICATION 

58, RUE DU FAUBOURG POISSONNIERE 
75010 PARIS. TEL: (1) 47 70 32 44 













































































































































































